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This publication describes how to construct an IBM 
Systein/3 60 Model 44 Programming System, and how to 
modify and extend its capabilities.. 

Among the subjects discussed in this publication 
are: 

• How to construct and edit a Model 44 Programming 
System. 

• How to write an accounting routine and incorporate 
it into the system. 

• How to define the input/output configuration at IPL 
time. 

• How to write routines at the Execute Channel 
Program (EXCP) level of the input/output facili¬ 
ties. 

• How to expand the user communication region. 





PREFACE 


/ 

V. 


This publication provides information 
for programmers responsible for construct¬ 
ing an IBM System/360 Model 44 Programming 
System,, and modifying and extending its 
capabilities. It is directed to experi¬ 
enced programmers who have a detailed 
knowledge of the components, functions, and 
structure of the Model 44 Programming and 
Computing Systems,, 

Certain information and procedures nec¬ 
essary for the complete understanding of 
procedures explained in this publication 
are given in other publications and are not 
duplicated here. Therefore, the following 
publications are prerequisite to this cne: 

IBM System/360 Model 44 Programming Sys ¬ 
tem: Concepts and Facilities , Form 
C28-6810, describes the functions and capa¬ 
bilities of the programming system,. 

IBM System/360 M o del 44 Pr ogramming Sys¬ 
tem: Assembler Lang u age , Form C28-6811, 


contains the information necessary to pre¬ 
pare code in the assembler language. For 
system editing, it is essential for the 
user to be familiar with the sections 
entitled "Assembler Instruction Statements" 
and "Conditional Assembly Instructions." 


IBM Sys tem/ 360 Model 44 Pr og ramming Sys¬ 
t em: Guid e t o -System_Use, Form C28-6812, 

contains detailed information about prepar¬ 
ing programs to be executed under system 
control. 


For system editing, in addition to this 
publication, the system programmer should 
obtain a symbolic listing of the various 
system components. The text makes frequent 
reference to labels, variables, etc., that 
actually appear in the listing. 
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SYSTEM CONSTRUCTION AND EDITING 


This chapter provides information about 
how to originally construct an operative 
IBM System/360 Model 44 Programming System, 
and how to edit such a system to reflect 
unique installation requirements. It des¬ 
cribes space allocation and IPL procedures, 
system residence volume initialization, and 
the use of the system construction program. 
Input/output device assignment procedures, 
and information about supervisor reassembly 
are also included. 


The IBM System/360 Model 44 Programming 
System is a collection of absolute phases 
and relocatable modules that can be com¬ 
bined to meet the specific programming 
needs of a given installation. The process 
used to produce an initial operative pro¬ 
gramming system is called system construc¬ 
tion. 

IBM provides the phases and modules from 
which system libraries (the phase library 
and, optionally,, the module library) are 
constructed. Distributed with the system 
are six stand-alone programs, two of which 
must be used to construct an operative 
system. 

System components to be placed into the 
phase library are the supervisor., the 
FORTRAN IV compiler,, the assembler,, and 
three system support programs: the job 
control processor,, the linkage editor., and 
the utilities processor. (Each of these 
components is distributed in absolute 
form.) 

System components that are placed into 
the module library are service and mathema¬ 
tical subroutines. (Each of these compo¬ 
nents is distributed in relocatable form.) 

The six stand-alone programs (programs 
that do not operate under system control) 
provided with the system are: 

1. Two disk initialization programs 

2. System construction program 

3. Absolute loader 

4. Print/punch program 

5. Save/restore program 

An installation may delete or replace 
any of the system components provided,, 
except the supervisor and the job control 
processor. 


To obtain an initial operative program¬ 
ming system containing all distributed sys¬ 
tem elements, an installation must: 

• Initialize an IBM 2315 Disk Cartridge 
as the system residence volume. 

• Allocate space for all data sets 
required by the system. 

• Use the system construction stand-alone 
program to transfer the desired compo¬ 
nents of the distributed system onto 

. the system residence volume. 

• Perform an initial program loading 
(IPL) procedure, assigning input/output 
devices (system units) for use by the 
system. 

No reassembly of system components is 
necessary in this process. However, the 
system must be reassembled to make such 
modifications as incorporating a new 
installation function, permanently changing 
a machine configuration,, or altering 
default conditions for system options. 
This process of reassembling—of creating 
in effect a new system residence volume—is 
called system editing. 


FORM OF DISTRIBUTION 


The programming system is distributed by 
IBM on one reel of tape from which the card 
decks required for system construction can 
be punched; if the installation does not 
have a tape drive,, the programming system 
can be obtained in card form. The tape 
consists of a series of files: the first 
contains a print/punch program, the second 
contains a table of contents, and each 
remaining file contains a card deck. 

The print/punch program is used to print 
or punch the contents of the tape; it is a 
special stand-alone program to be used with 
this tape only. The table of contents is 
an alphabetical list (according to card 
identification) of the card decks on the 
tape together with the file numbers that 
contain them. 

Complete instructions for the use of the 
print/punch program are given in the publi¬ 
cation IBM Syste m /360 Model 44 : Operator’s 
G uid e,, Form C28-6815. The following two 
examples show typical input parameters that 
can be used to control the print/punch 
routine: 
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P REPARA TION FOR SYS TEM CONST RUCTION 

* " 1 « '"'"H 

! ' ■ 


* To Print the table of contents only: 
xxxx if cuu, 1, 1 
where: 

xxxx is the device type (1403 or 1443) 
cuu is the device address 

2. To punch all of the card decks con¬ 
tained on the tape: 

xxxx f cuu,EOV„ 2 

where: 

xxxx is the device type (2520, 2540, 

or 1442) 

cuu is the device address 

Details regarding the use of input para¬ 
meters, which enable the operator to select 
a file or group of files to be printed or 
punched, are included in the instructions 
mentioned above. 


Optional Tape for System Editing 


If the system programmer’s modifications 
require that system editing be done, he 
must obtain a copy of the system in symbol¬ 
ic card form. Tapes from which these 
symbolic card decks can be punched (or the 
system assembled) are available through the 
local IBM branch office. 

The components of the system (in symbol¬ 
ic form) occupy two reels of magnetic tape. 
These tapes contain blocked records con¬ 
sisting of 20 card images per record. The 
arrangement of the system components is 
given below. 

Reel 1: The order of the components on 

this reel is: 

Save/Restore Program 

Print/Punch Program 

Absolute Loader 

System Construction Program 

IPL Program 

Supervisor 

Job Control 

Linkage Editor 

Assembler Program 

Utility Programs 

Reel 2: The order of the components on 
this reel is: 

FORTRAN Compiler 
FORTRAN Object Fix 
FORTRAN Expander 
FORTRAN Library 


Before a system can be constructed, an 
installation must calculate both the amount 
of space to be allocated for required 
system data sets, and the number of entries 
to be allotted to the directories of the 
phase and module libraries. After these 
values are calculated, they must be speci¬ 
fied on ALLOC control cards provided as 
input, along with the IBM-distributed pro¬ 
gramming system to the stand-alone system 
construction program. (Each ALLOC card 
must be followed by a LAEEL control card. 
The LAEEL card defines the characteristics 
of the data set named on the immediately 
preceding ALLOC card.) 


Space for the following system data sets 
must be allocated on the system residence 
volume. 

Note: In the text that follows, only the 

data sets SDSIPL, SDSABS, and SDSUAS must 
be so named by the user. All other data 
set names used here, SDSCAT, SDS000, 
SDSPSD, SDS001, and SDSREL are for conven- / 
ience only; an installation can choose 
different names for them. 

• SDSIPL (IPL record). The IPL record 
functions as the initializing routine 
for the IPL procedures. 

• SDSABS (Phase library).. The phase 
library, a directoried data set, con¬ 
tains program phases ready for execu¬ 
tion. 

• SDSUAS (Job control table). The job 
control table is used by job control to 
store system-unit assignment informa¬ 
tion. 

• SDSCAT (System catalog). The catalog c 

data set contains the names and volume 
identifications of cataloged data sets. 

It is used by the system to locate data 
sets specified by name alone. (Note • 

that space need not be allocated to 

this data set unless the catalog func¬ 
tion is to be used by the 

installation.) 

Space for the following system data sets 
may be allocated cn the system residence 
volume. If, however, these data sets are 
not to be stored cn the system residence 
volume, space on a different volume must be $ ^ 
allocated for them after an initial system 
has been constructed. 


SPACE ALLOCATION CONSIDERATIONS 
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• SDSREL (Module library). The module 
library, a directoried data set, con¬ 
tains selected modules and serves as an 
automatic source of input to the link¬ 
age editor* 

• SDS000 (Compiler data set). The com¬ 
piler data set is used to collect 
output from the assembler and the 
FORTRAN compiler; it is the input to 
the linkage editor. 

• SDSPSD (Pseudo-directory). The pseudo- 

* directory is used by the linkage editor 

as a directory to data set SDS000. 

• SDS001 (System work data set). The 

. system work data set is used as a 

general system work area, and may be 
used by any processing program* 


uu = 00 to FE (0 to 254 in 

hexadecimal) 

volidx = the volume identification of 
the disk mounted on the 

device specified by devadr. 

Note: SDSIPL must be the first data set 

for which space is allocated* The order in 
which space is allocated for other data 
sets is at the user's discretion and deter¬ 
mines the order of data sets on the system 
residence volume. To reduce access time, 
space should be allocated to data sets in 
frequent use before those less frequently 
used* 


S DSABS (Phas e Li b rary ) 


< 


SPACE ALLOCATION PLANNING 


This section provides guidelines for 
allocating space to all data sets required 
by the system. 

Space for two data sets only,, SDSIPL and 
SDSABS,, must be allocated before an 
installation's first initial program load¬ 
ing (IPL) procedure is performed. Space 
for the other required data sets may be 
allocated during the IPL procedure itself. 
(See the section "Initial Program Loading 
(IPL) Procedure.") 


SDSIPL (IPL Record) 


The IPL record is allocated one 
2880-byte block occupying one track. The 
formats of the ALLOC and LABEL control 
cards required to reserve this space are: 

r-1 

|// ALLOC SDSIPL, devadr=* volidx',,1 | 

j// LABEL 2880 j 

l_J 

devadr 

This field specifies the device 
address of the system residence vol¬ 
ume. 

The address is specified in hexadeci¬ 
mal form as cuu, where c is the 
channel address and uu is the address 
of a device attached to that channel, 
c =0 for the standard multiplex 
channel. 

= 1 or 2 for one of the optional 
high speed multiplex channels. 


Before coding an ALLOC control card for 
the phase library, the user must calculate 
both the size of the library, expressed as 
the total number of 720-byte blocks to be 
allocated for the data set, and the number 
of entries the library's directory is to 
contain (one per phase). For assistance in 
making these calculations, refer to Table 
1. This table shows the size of each of 
the system components in the phase library 
as initially distributed by IBM, and the 
number of directory entries allocated for 
them* 

In making a final calculation of the 
space to be allocated for the phase 
library, however, the user must consider 
not only system components, but also any 
programs that he plans to permanently 
incorporate into the library- In addition, 
space must be allocated to allow for tem¬ 
porary entries made by the linkage editor 
during job execution. 


If the user is uncertain about how much 
space to allocate, it should be sufficient 
to allow a total of 120 directory entries 
(specify 119, one entry is added by the 
system) and 500 blocks, resulting in an 
allocation of 101 tracks to the phase 
library. This is 75 entries and 215 blocks 
more than required by the distributed com¬ 
ponents . 

The space necessary to accommodate any 
given phase is calculated as fellows: 

• Number of blocks- Divide the size of 
the phase (in bytes) by 720; if there 
is a remainder, add 1. 

• Number of directory entries. One per 
phase. 
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Table 1, Phase Library System Component Sizes 


System Component 


No. of Blocks 
(1 block = 720 bytes) 


No. of Directory Entries 
(1 entry = 24 bytes) 


Supervisor (resident) 


29 


Transient routines 1 

OPEN 

CLOSE 

CANCEL 

DUMP 

2311ERP (error recovery 
procedure) 

2400ERP (error recovery 
procedure) 

Card read-punch ERP 
(error recovery pro¬ 
cedure) 

Printer ERP (error 
recovery procedure) 

Error message writer 


Job Control Processor 


51 


Linkage Editor 


21 


Utilities 


55 


FORTRAN IV Compiler 


70 


Assembler 


40 


h 


System Level Directory 


^A transient routine is cne that is brought into the supervisor transient area of main 
storage as required. 


The formats of the ALLOC and LABEL 
control cards required to reserve space for 
the phase library are: 

r- 1 

|// ALLOC SDSABS (f devadr=' vclidx * w dat len, | 

| dirlen ,FMT | 

\// LABEL 720 j 

L_J 

devadr= * volidx' 

This field must be the same as the 
corresponding field specified in the 
2tLLOC control card as described under 
"SDSIPL (IPL Record). w 

datlen 

This field specifies the total number 
of blocks to be allocated for the data 


set, exclusive cf its directory 
length. 


dirlen 

This field specifies the total number 
of entries tc be allotted to the data 
set's directory. Each entry is 24 
bytes long; the system will automat¬ 
ically allocate the total number of 
720-byte blocks needed to accommodate 
the directory at the beginning of the 
data set. 

FMT 

The FMT keyword causes the system to 
write sequential blocks containing 
zeros throughout the area reserved for 
a direct access data set. 
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The blocks are the size specified in 
the LABEL statement for the data set. 
If the data set is directoried, both 
the directory and the data area are 
formatted. 

This facility enables a program to 
write or read any data block within 
the data set at any time,, thereby 
making non-sequential processing pos¬ 
sible. 

Assembler language programmers may use 
the POINT supervisor call to go 
directly to the proper position for 
writing or reading any block. 


SDSUAS (Job Control Table) 


The SDSUAS data set is used by the job 
control processor to record system and 
symbolic unit assignments specified by the 
user. SDSUAS must be allocated at least 
three 720-byte blocks, but not more than 
six blocks for a 64K system. (Each unit 
assignment entry occupies 40 bytes.) 

The first block,, the fixed area, records 
system unit assignments specified by the 
FIX operand of the SET command issued at 
IPL time. Subsequently,, at each IPL, the 
information contained in this block is read 
into main storage for use by the system. 
This IPL-time transfer of data saves setup 
time; system unit assignments need not be 
redefined each time the operator performs 
an IPL procedure. 

The operator can, however,, change system 
unit assignments by issuing appropriate 
ACCESS (or ALLOC) statements during IPL or 
between jobs. A change tc the fixed set of 
system units might be made if, for example, 
the printer normally used for system messa¬ 
ges were inoperative. "Changes made by the 
operator overlay,, and override,, portions of 
the fixed area brought into main storage. 
Fixed system unit assignments modified by 
the operator are called permanent assign¬ 
ments. 

When the job control processor must 
relinquish its use of main storage, it uses 
the second block of the SDSUAS data set* 
the permanent area,, as an auxiliary storage 
area in which to keep track of these 
permanent assignments. 

Notes Although called "permanent,” perman¬ 
ent assignments remain in effect only until 
the next IPL is performed.) 

The third block (see note) of SDSUAS,, 
the temporary area* is also used bv the job 
control processor as an auxiliary storage 


area. The temporary area keeps track of 
symbolic unit assignments made by the user, 
via ACCESS or ALLOC statements, within a 
job. Temporary assignments remain in 
effect only for the duration of a job. 
After each job, the system assumes the use 
of the permanent unit assignments. 

No te; Wore than one block can be allocated 
for the temporary area. More than one 
block should be allocated if the installa¬ 
tion plans to design a job that refers to 
more than about ten sequential data sets or 
more than six directoried data sets; the 
actual number depends upon the types of 
references within a specific jcb and the 
amount of main storage available. The 
following warning message will be printed 
when the capacity of the temporary area is 
exceeded; 

IA86I - CAUTION JOB TBL FULL 

(The message is explained in detail in the 
publication IB M_ System /360_Mo del 44 Pro ¬ 
gramming Sy s tem; Guide tc System Use , Form 
C28-6812.) 

The formats of the ALLOC and LABEL 
control cards required to allocate space 
for the SDSUAS data set are: 

r - 1 

|// ALLOC SDSUAS,devadr='volidx*,datlen | 
|// LABEL 720 j 
L-J 

devadr='volidx* 

This field must be the same as the 
corresponding field specified in the 
ALLOC control card as described under 
"SDSIPL (IPL Record)." 

datlen 

This field specifies the total number 
of blocks to be allocated for the data 
set. The value specified must be 
three or more. 


SDSCAT (System Catalog) 


The system catalog may be considered as 
a form of directoried data set containing 
no data. Because catalog entries are 24 
bytes long,, the minimum block length that 
can be allocated for the catalog is 24 
bytes; the maximum length, as for any 
directoried data set, is 720 bytes. Since 
all data sets are allocated no less than 
one full track of space, and since the 
system always adds one control entry to the 
number of entries specified by the user, 
maximum use of a 1-track catalog can be 
achieved by allocating a block length of 
720, and specifying 119 entries. The for- 
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mats of the ALLOC and LABEL control cards 
required to reserve space for the catalog 
are shown below* (Note that the data 
length field of the ALLOC statement is 
specified as zero.) 


r-1 

|// ALLOC SDSCAT,devadr=*volidx*,0,dirlen | 

j// LABEL block-length j 

L_J 


devadr=•volidx * 

This field must be the same as the 
corresponding field psecified in the 
ALLOC control card as described under 
"SDSIPL (IPL Record)." 

dirlen 

This field specifies the total number 
of catalog entries to be allotted to 
the data set* s directory. 


block-length 

This field specifies the block length 
in bytes. The value specified must be 
no less than 24,, no greater than 720. 


SDSREL (Module Library) 


Before coding an ALLOC control card for 
the module library, the user must calculate 
both the size of the library (expressed as 
the total number of 360-byte blocks to be 
allocated for the data set), and the number 
of entries the library's directory is to 
contain (one per module name). For assist¬ 
ance in making these calculations, refer to 
Table 2. This table shows the size of each 
of the system components in the module 
library as initially distributed by IBM, 
and the number of directory entries to be 
allocated for them. 

In making a final calculation of the 
space to be allocated for the module 
library, however, the user must consider 


not only system components, but also any 
programs that he plans to permanently 
incorporate into the library. If the user 
is uncertain about how much space to allo¬ 
cate, it should be sufficient to allow a 
total of 180 directory entries (specify 
179, one entry is added by the system) and 
500 blocks, resulting in an allocation of 
64 tracks to the module library. This is 
85 entries and 292 blocks more than 
required by the distributed components. 

The space necessary to accommodate any 
given module is calculated as follows: 

• Number of blocks. Divide the size of 
the module (in bytes) by 360? if there 
is a remainder, add 1. (Note that the 
modules are blocked at five records per 
block.) 

• Number of directory entries. One for 
each module name. 

The formats of the ALLOC and LABEL 
control cards required to reserve space, on 
the system residence volume, for the module 
library are: 

r- 1 

\// ALLOC SDSREL,devadr=*volidx*,datlen, | 

j dirlen j 

j// LABEL 360,RECLEN=72 | 

l_J 

devadr-*volidx* 

This field must be the same as the 
corresponding field psecified in the 
ALLOC control card as described under 
"SDSIPL (IPL Record)." 

datlen 

This field specifies the total number 
of blocks to be allocated for the data 
set,. 

dirlen 

This field specifies the total number 
of entries to be allotted to the data 
set* s directory. 

RECLEN=72 

This field specifies the record length 
to be used when creating the module 
library. This field must be present 
as shown whenever it is desired to 
create a module library having a for¬ 
mat acceptable to the linkage editor. 
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Table 2. Module Library System Component Sizes 

r -•- T -T- 


System Component 


No,, of Blocks 
(1 block = 360 bytes) 


No. of Directory Entries 
(1 entry = 24 bytes) 


Service and IBCOM 
routines 3 - 

FORTRAN mathematical 
subroutines 


89 


119 


22 


73 


I- x - x - 

l^-These routines are used for specialized FORTRAN input/output operations. 

L_ 


SDS0Q0 _ (Complier Data Se t) a nd SDSQQ1 

(System Work Data Se t)^ 


For irost efficient processing the SDS000 
and SDS001 data sets should be stored on 
magnetic tape. If , however,, these data 
sets must be stored on the system residence 
volume,, the following considerations deter¬ 
mine the amount of space to be allocated 
for them. 


• The amount of space remaining after 
other system data sets and the volume 
table of contents (VTOC) have been 
placed on the volume. 


• The amount of space to be allocated for 
user data sets on the volume. 

• The relative amounts of space to be 
allocated for SDS000 and SDS001. (The 
contents of SDS000 accumulate from 
assembly to assembly and from compila¬ 
tion to compilation. The assembler 
uses one block of SDS001 for approxi¬ 
mately every three assembler language 
statements,, and the FORTRAN compiler 
uses one block for approximately every 
six FORTRAN source statements.) 

If the user is uncertain about how much 
space to allocate,, it should be sufficient 
to allocate SDS000 a total of 200 360-byte 
blocks, resulting in an allocation of 25 
tracks, and to allocate SDS001 a total of 
1000 360-byte blocks, resulting in an allo¬ 
cation of 125 tracks,. These allocations 
should provide enough space on SDS001 for 
the assembly of a 2700-card assembler lan¬ 
guage program or for the compilation of a 
1200-statement FORTRAN program (based on a 
64K system) and enough space on SDS000 for 
a link edit resulting in one or more phases 
totaling approximately 52,000 bytes. Note 
that one track accommodates 40 card images. 
The formats of the ALLCC and LABEL control 
cards required to reserve space on the 
system residence volume are: 


r - n 

|// ALLCC SDS000,devadr= *volidx*,datlen | 

j// LAEEL 360 j 

L_J 


devadr= 1 volidx* 

This field must be the same as the 
corresponding field specified in the 
ALLOC control card as described under 
"SDSIPL (IP! Record).” 


datlen 

This field specifies the total number 
of blocks to be allocated for the data 
set. 


r- 1 

(// ALLOC SDS001„devadr= , voIidx , ,datlen | 
|// LABEL 360 j 
L_J 

devadr=■volidx* 

This field must be the same as the 
corresponding field specified in the 
ALLOC control card as described under 
”SDSIPL (IPL Record)." 

datlen 

This field specifies the total number 
of blocks to be allocated for the data 
set. 


S DSPSD (Pseu d o-dir e ctory) 


SDSPSD, which serves as the directory of 
SDS000, is allocated one track of space. 
(119 directory entries, each 24 bytes long,, 
plus one system-generated 24-byte control 
entry,, occupy one track.) The ALLOC and 
LABEL control cards required to reserve 
this space, on the system residence volume, 
are shown below. Note that the data length 
field of the ALLOC card is specified as 
zero. 
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r- n 

|// ALLOC SDSPSD* devadr=' volidx',,0,119 j 
|// LABEL 360 j 
i___J 


devadr= * volidx * 

This field must be the same as the 
corresponding field specified in the 
ALLOC control card as described under 
"SDSIPL (IPL Record).” 


SYSTEM CONSTRUCTION PROCEDURE 


This section describes the procedures to 
be followed to obtain an initial operative 
programming system. It explains the proce¬ 
dure for initializing the system residence 
volume and the use of the system construc¬ 
tion program,. 


INITIALIZING THE SYSTEM RESIDENCE VOLUME 


Summary of Spac e Alloca tic n 


In the preceding discussions of the 
allocation of space for the various data 
sets f recommendations were made to assist 
system programmers in determing a reasona¬ 
ble starting point for space allocation. 
The recommendations, which are summarized 
in Table 3,, will be suitable for a wide 
variety of installations. Once an instal¬ 
lation determines its own requirements from 
experience,, space can be reallocated to 
suit those requirements. 


After the amount of space to be allocat¬ 
ed for system data sets has been calculat¬ 
ed, the user must initialize an IBM 2315 
Disk Cartridge as the installation’s system 
residence volume. Initialization is the 
process of writing sector identification, a 
volume label, and a volume table of con¬ 
tents (VTOC) on a direct-access volume. 
These functions are performed by the 2315 
stand-alone disk initialization program 
provided with the distributed system. To 
use this program,, the user must prepare an 
INITIAL control card. This card is placed 
behind the disk initialization program, as 
the last card in the deck. The format of 
the INITIAL control card required for sys¬ 
tem residence volume initialization is: 


Note that in addition to spacb required 
for data sets. Table 3 includes space 
(described later under ’’Initializing the 
System Residence Volume’’) required for the 
VTOC and space used for the IPL oootstrap 
routine on track 0. 


Table 3. Space Allocation Recommendations 


r 

Data Set 

T 

(Directory 
j Entries 
Name j Allocated 

1 

T - v 

1 \ 

(Blocks 1 

j Allocated|Tracks 
± ± 

SDSIPL 

T 

(0 

1 

T 

1 1 

I 

I 

u 

j 

|126 

1 

U 

1 

SDSABS 

1119 

l 

| 500 

1 

SDSUAS 

1 

(0 

i 

1 

| 4 

i 

SDSCAT 

1 

(119 

j 

1 

jo 

1 

SDSREL 

1179 

| 500 

1 

| 

(64 

i 

SDS000 

1 

|0 

1 

(200 

1 

( 

1 25 

SDS001 

1 

jo 

1 

(1000 

1 

| 

1125 

i 

SDSPSD 

1 

1119 

i 

1 

1 0 

1 

1 

ii 

i 

Track 0 

1 

i 

1 

1 

1 

ii 

i 

VTOC 

1 

(36 

1 

1 0 

1 

1 2 

l - 

-L _ _ 

-L _ 

_ X _ _ 


(Tracks remaining for the user |53 

L--- - -JL- 


1 

I 

I 

I 

1 


-I 

I 

J 


r - 1 •-•"•x 

j INITIAL TYPE=XXXX,DVADR=CUU, j 

| VCLID= * volidx • ff VTOC=e, EDATE=yyddd„ j 

j SYSLOG=cuu | 

L-J 

TYPE=xxxx 

This field identifies the type of 

device on which the volume is mounted. 

The value of this, field must be SDSD. 

DVADR=cuu 

This field specifies the device 

address (physical location) of the 
volume to be initialized. The DVADR 
value, cuu„ denotes its channel and 
unit address. 

c =0 for the standard multiplex 

channel. * 

= 1 or 2 for one of the optional 
high speed multiplex channels, 
uu = 00 to FE — the unit address in 
hexadecimal. 

VOLID= *volidx' 

This field specifies the 6-byte iden¬ 
tification number to be assigned to 
the volume tc be initialized. The six 
characters of this field must be 
enclosed in single quotation marks. 

VTOC=e 

This field specifies the number of ^ x 

entries,, e, that will be in the U 

volume's VTOC. (Entries are placed 20 
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to a track.) The system uses this 
information to determine how much 
space must be reserved for the table 
of contents- The count includes for¬ 
mat 4 and format 5 labels, as well as 
all format 1 labels- The minimum 
possible value for the system resi¬ 
dence volume is 5- Note that the 
system reserves entire tracks for the 
volume table of contents- The system 
adds 4 (for entries created by the 
system) to the value of e specified by 
the system programmer and then res¬ 
erves enough tracks to contain that 
number of entries- For example, if e 
is 50, the system adds 4 giving 54; 
therefore,, three tracks (space for 60 
entries) is reserved- The space for 
six additional VTOC entries that is 
added to form a complete track is 
available for the volume table of 
contents. 

EDATE=yyddd 

This field specifies the date on which 
the volume is initialized. The date 
is in the form yyddd,, where yy is the 
year, and ddd is the day of the year 
(001-366). 


2. Place the system construction program 
deck into the card reader. 


3. Place the ALLOC control card shown 
below into the card reader. This card 
defines the system unit that the 
installation will use for the printing 
of messages,. 


r-1 

| //SYSLOG ALLOC SDSLOG,devadr= | 

L-J 


devadr 

This field specifies the address 
of the device to be used for the 
printing of system messages. The 
address, in the hexadecimal form 
cuu, must be immediately followed 
by an equal sign and a blank. 
Note that cuu is described under 
"SDSIPL (IFL Record)." 


4. Place the following SET card into the 
card readers 


SYSLOG=cuu 

This field specifies the device 
address of the console printer key¬ 
board. The meaning of cuu is the same 
as described above for DVADR=cuu. 

The following is an example of an INI¬ 
TIAL control card that might be prepared to 
govern initialization of a system residence 
volume: 

r- 1 

j INITIAL TYPE=SDSD,DVADR=0C0„ j 
j VCLID= * SYSRES',VTOC=20, j 
j EDATE=67033 ( , SYSLOG=009 j 
L_J 


SYSTEM CONSTRUCTION PROGRAM 



The system construction program provided 
with each distributed Model 44 Programming 
System is a stand-alone program executed 
without system control. The program con¬ 
structs an operative system from absolute 
and relocatable decks containing the 
executable phases and relocatable modules 
the installation chooses to include in its 
system. The following procedure must be 
followed to execute the system construction 
program: 

1- Initialize the system residence vol¬ 
ume. (See the preceding section, 
"Initializing the System Residence 
Volume. n ) 


r - 1 

| SET date j 

L_J 


date 

This operand is in the form 
yyddd,, where yy consists of the 
last two digits of the current 
year, and ddd represents the day 
of the year (001-366). 


5- Place the ALLCC and LABEL control 

cards prepared for SDSIPL (the IPL 
record) into the card reader. 

6. Place the SDSIPL deck (provided as 

part of the distributed programming 
system) into the card reader, followed 
by a /* end-cf-data control card. 

This deck is the first module 
(BDA00000) of the input/output super¬ 
visor deck (360-10-613). 

7- Place the ALLCC and LAEEL control 

cards prepared for SDSABS (the phase 
library) into the card reader. 

8- Place the SDSAES deck (provided as 

part of the distributed programming 
system) into the card reader, followed 
by a /* end-of-data control card. 

This deck, which begins with module 
BEA0 0000,, consists of the remainder of 
the input/output supervisor deck 
(360-10-613); see step 6 above. 
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9. Place any additional decks to be 
stored on the system residence volume 
into the card reader, as described 
above, each preceded by a set of 
related ALLOC and LABEL control cards; 
each should be followed by a /* end- 
of-data control card. (The order in 
which these decks are placed into the 
card reader determines the order in 
which the data sets appear on the 
volume.) 

10. Place a /& end-of-job control card 
into the card reader. 

11. Dial the console load-unit switches to 
the address of the card reader. 

12. Press the console Load button. 

In summary, the deck sequence for system 

construction is as follows: 

1. 2315 disk initialization program. 

2. INITIAL control statement. 

3,. Stand-alone system construction 

program. 


that all control cards used during the IPL 
procedure are operator commands; i.e., they 
do not begin with the // identifiers and 
column 1 is blank when no system unit is 
specified. 

A maximum of 14 system units may be 
defined. 1 Figure 1 is an example of an 
input deck that might be prepared to define 
these units. For this example, it is 
assumed that all system disk data set 
allocation was done during system construc¬ 
tion. Note that space for SYSAB1 must 
always be allocated before the IPL proce¬ 
dure is performed. In this example, ALLOC 
statements are used to define the printer, 
punch, card reader, and console typewriter; 
ACCESS statements are used for the other 
units. 


The distributed system supports a maxi¬ 
mum of 17 symbolic units: SYSAB1 through 
SYS005. During an IPL procedure,, only 14 
of the units can be allocated or accessed. 
(Note that "SYSCAT" is a naming convention 
and is not counted as a system unit.) An 
attempt to define SYS004, SYS005, or the 
fifteenth unit will result in an error 
message from the job control processor. 


4. ALLOC control card defining SYSLOG. 

5. SET control card. 


and LABEL cards. 


and LABEL cards. 


by ALLOC and LABEL cards. 
/£ control card. 


INITIAL PROGRAM LOADING (IPL) PROCEDURE 


Operation of the constructed system is 
initiated by the initial program loading 
(IPL) procedure. The IPL procedure con¬ 
cludes with a SET command, which results in 
the job control processor being fetched to 
begin processing. 



i 

SET 

67090,FIX 


|SYSAB1 

ACCESS 

SDSAES,0C0='SYSRES' 


|SYSREL 

ACCESS 

SDSREL,SAME=SDSABS 

related ALLOC 

j SYSLOG 

ALLOC 

SDSIOG,1052=’LOGOUT 


|SYSRDR 

ACCESS 

SDSRDR,254 0= * INPUT * 


jsYSIPT 

ACCESS 

SDSIPT,SAME=SDSRDR 

related ALLOC 

j SYSLST 

ALLOC 

SDSLST,1403='OUTPUT 


i 

LABEL 

,CTLASA 


jSYSOPT 

ALLOC 

SDSOPT,SAME=SDSLST 

stored on the 

i 

LABEL 

,CTLASA 

each preceded 

|SYSPCH 

ALLOC 

SDSPCH,254 0P= 1 PUNCH 1 


j SYSPSD 

ACCESS 

SDSPSD,SAME=SDSABS 


j SYSUAS 

ACCESS 

SDSUAS,SAME=SDSABS 


ISYS000 

ACCESS 

SDS000,SAME=SDSABS 


ISYS001 

ACCESS 

SDS001,SAME=SDSABS 

PROCEDURE 

j SYSCAT 1 

1 

|/6 

l 

ACCESS 

LISTIO 

SDSCAT,SAME=SDSABS 


--I 

1 The system unit SYSCAT may be used only 
during the IPL procedure. The unit dees 
not actually exist in the system; 
"SYSCAT” is a name which allows the user 
to identify the catalog to the system. 

L-J 

Figure 1. Sample Input Deck for System 
Unit Definition 


The first IPL performed on the program¬ 
ming system differs somewhat from subse¬ 
quent IPLs in that the user must specify 
the FIX option of the SET command. This 
option signals the system that the user is 
about to define the data set-symbolic unit 
relationships known as system units. Sys¬ 
tem unit definitions are made via ALLOC, 
ACCESS, and LABEL control cards that 
immediately follow the SET command. Note 


There is no need to define all of the 
system units. If SYSAE2 is not defined at 


^he job control processor requires that 
five system units be defined: SYSAB1, 
SYSRDR, SYSLOG, SYSLST, and SYSUAS. Four¬ 
teen system units are required if full use 
is to be made of the system. 
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IPL time, the job control processor will 
automatically create an entry for it using 
the same definition as for SYSAB1. If 
SYSAB2 is defined at IFL time, the job 
control processor will use the definition 
given. 

After the user has defined all required 
system units,, "normal" use can be made of 
the system, but the first step the user may 
want to take is to assemble or linkage edit 
any programs to be added to the phase 

library. The publication IBM_ System/3 60 

Model 44 Programming System : Gui de to Sys ¬ 
tem Use , Form C28-6812, explains these 
procedures. 


PREPARATION,FOR SYSTEM EDITING 


System editing is the process of reas¬ 
sembling components of a current program¬ 
ming system to make such modifications as 
incorporating a new installation function,, 
or altering a default condition for a 
system option. (Note,, however, that reas¬ 
sembly is not always necessary for modi¬ 
fication. Some minor changes can be made 
by means of REPLACE (REP) statements by 
producing a new system using the system 
construction program. The'REP statement is 
explained in the publication IBM System/360 
Model 44 Programming Syst em : Guide to Sys¬ 
t em Use ,, Form C28-6812.) 

System editing is most easily performed 
using two IBM 2315 Disk Cartridges (one of 
which is the current system residence 
volume) and a symbolic deck of the system. 
Changes can be made by means of the job 
control processor, the assembler language 
compiler, and the linkage editor. The 
changes that can be made by means of the 
job control processor are performed as 
described under "System Construction" 
(i.e., the size of new data sets, and the 
number of directory entries for the phase 
and module libraries must be specified in 
ALLOC and LABEL statements). 


REASSEMBLY OF THE SUPERVISOR 


The update facilities of the assembler 
are used to specify changes to be made 
during reassembly of the supervisor. How¬ 
ever, before any modifications are made, 
the system programmer should ontain an 
assembly listing of the system. The list¬ 
ing can be obtained by assembling the 
system as provided on the optional tape 
(see "Optional Tape for System Editing"); 
the assembler’s update feature should be 


used to produce the listing by specifying 
the UPBASMB3 option. The assembly listing 
will provide the user with the locations of 
control blocks and tables that can be 
altered to meet installation requirements. 

The following sections describe the 
changes that should be made to tailor a 
system to an installation’s particular 
machine configuration and supervisor fea¬ 
ture options. Tc summarize most of the 
information presented in these sections, a 
description of the changes necessary to add 
a new device to the system is also provid¬ 
ed. 


C ondition a l Asse mbl y Ins t ruct i ons in the 
Supe rvis or 


The symbolic source deck of the supervi¬ 
sor contains conditional assembly instruc¬ 
tions that have operand values which can be 
changed to specify conditions that apply at 
a particular installation. Samples of SETA 
instructions in the supervisor are listed 
in Table 4. Many of the operands of these 
instructions specify default conditions. 
Default conditions are the conditions that 
are assumed if the corresponding values are 
omitted from a control statement. The 
operand values shown are the settings in 
the distributed version of the system. It 
is usually to the user’s advantage to 
indicate deletion of features that are not 
to be used at his installation. By delet¬ 
ing unneeded features, storage space is 
saved. 

A complete list of conditional assembly 
instructions that may be changed is con¬ 
tained in the component comments module, 
which can be obtained as explained under 
"Component Comments Modules." 


As semb ler Ins tructions in the S uperviso r 


The symbolic source deck of the supervi¬ 
sor contains EQU assembler instructions 
that have operand values which can be 
changed to specify conditions that apply at 
a particular installation. Samples of EQU 
instructions in the supervisor are listed 
in Table 5; the operand values shown are 
the settings in the distributed system. 

A complete list of assembler instruc¬ 
tions that may be changed is contained in 
the component comments module, which can be 
obtained as explained under "Component Com¬ 
ments Modules." 
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Table 4. Samples of Conditional Assembly Instructions in the Supervisor 

r - T - T -T-T- 

|Name |Operation|Operand|Default Condition | Description of the Operand Value | 

F-+-+-+-+-^ 


SACCNT 

j SETA 

1 

1 

1 

1 0 

1 

1 

1 

1 

1 

1 

1 

|If 0, the installation will not pro- 
jvide an accounting routine; if 1, it 
jwill provide an accounting routine. 

SDUMP 

1 

j SETA 

1 

1 

1 0 

1 

1 

|DUMP/NODUMP field of 
jthe JOB statement. 

I 

(0 specifies that NCDUMP is assumed; 
jl specifies that DUMP is assumed. 

SFLPT 

1 

| SETA 

i 

i 

i 

1 

i o 

i 

i 

i 

1 

1 

1 

1 

| 

jIf 0, floating-point registers will 
(not be used- If 1, floating-point 
(registers will be used. 

SHGHCT 

1 

| SETA 

i 

i 

1 

1 2 
i 

I 

1 

1 

1 

1 

{Specifies the highest channel number 
jin the installation. 

6LABEL 

1 

j SETA 

i 

i 

i 

1 

1 o 

i 

i 

1 

1 

1 

1 

1 

jIf 0, the system treats all magnetic 
(tapes as unlabeled. If 1 , the system 
jwill handle the standard tape labels. 

SSTAPE 1 

1 

| SETA 

i 

i 

i 

1 

1 1 

i 

i 

i 

1 

1 

1 

i 

1 

jIf 1, the system assembles routines 
jfor support of magnetic tape. If 0, 
jthe routines are not assembled. 

i 

£TCON 

1 

| SETA 

1 

1 

1 

1 

1 1 

i 

i 

i 

1 1 

(Convert feature in the|l specifies that ON is assumed for 
(volume field of ACCESSj7-track 2400-series tape drives; 0 

jand ALLOC statements. |specifies that OFF is assumed. 

i i 

£TDEN 

1 

| SETA 

1 

1 

1 

1 

1 

I 

1 

1 2 

i 

i 

i 

i 

i 

i 

l 

|Density for 7-track 
(2400-series tape 
jdrives. This option 
| appears in the volume 
(field of ACCESS and 
(ALLOC statements. 

i 

I 

|2 specifies that a density of 800 
jb.p.i. is assumed. 1 specifies that 
(556 b.p.i. is assumed. 0 specifies 
(that 200 b.p.i, is assumed. 

6TIMER 

1 

| SETA 

i 

i 

1 

1 1 
i 

i 

1 

i 

i 

i 

jlf 1, the timer feature is to be used; 
jif 0, it will not be used. 

£TPAR 

1 

| SETA 

1 

1 

1 

1 

1 

1 1 
i 
i 
i 

i 

1 

|Parity specification 
jin the volume field of 
|ACCESS and ALLOC 
| statements. 

i 

j1 specifies that odd parity is assumed 
jfor 7-track 2400-series tape drives; 
j 0 specifies that even parity is 
j assumed. 

£TTRN 

1 

j SETA 

1 

1 

1 

1 

1 

1 0 

1 

1 

1 

J 

1 

(Translate feature in 
(the volume field of 
(ACCESS and ALLOC 
|statements. 

i 

j 0 specifies that OFF is assumed for 
j7-track 2400-series tape drives; 1 
jspecifies that ON is assumed. 

i 

£T9ND 

1 

j SETA 

1 

1 

1 

1 

1 

1 

1 o' 

1 

1 

1 

1 

1 

1 

1 

i i 

(Density for 9-track (0 specifies that a density of 1600 

jdual density IBM 2400 jb.p.i. is assumed; 1 specifies that 
(Model 4, 5, and 6 Tapej800 b.p.i. is assumed. 

(Drives. This option | 

(appears in the volume | 

(field of ACCESS and j 

(ALLOC statements. | 

i i 

£WCHK 

1 

| SETA 

i 

i 

1 0 

1 

1 

i 

|WRCHK/NORCHK specifi- 
| cation of LABEL,ACCESS 
(and ALLOC statements. 

i 

|0 specifies that NOWRCHK is assumed; 
jl specifies that WRCHK is assumed. 

i 


j.-x-x-x-x- 

(^Changing the instruction's' operand value to 0 does not result in the deletion of| 
| associated transient error recovery routines. They must be explicitly deleted from thej 
j library if they are not wanted. j 

L_J 


16 










Table 5. Samples of Assembler Instructions in the Supervisor Source Deck 

r - r - t -r- 

(Name (Operation [Operand) Description of the Operand Value 

h-+-+-+-- 


| NCCW 

i 

i 

i 

i 

EQU 

i 

| 60 

1 

I 

1 1 
| Specifies the maximum number of double words available for| 
j channel command words (CCWs). j 

| NCHQ 

1 

i 

i 

i 

EQU 

1 

| 20 

i 

i 

I 1 
| Specifies the maximum number of channel requests that can be| 
j placed into the channel queue. j 

i i 

| NDEV 

1 

i 

i 

1 

EQU 

1 

| 5 

i 

j 

1 1 

| Specifies the number of device routines available for use by| 

j the system. j 

t i 

| NFCB 

1 

i 

i 

1 

EQU 

| 18 
i 

l 

i 1 

| Specifies the maximum number of file control blocks (FCEs)| 

| that can be incorporated into the system. j 

1 1 

| NSUT 

1 

i 

i 

i 

EQU 

1 21 
i 

i 

I ! 

| Specifies the maximum number of system units that can be| 

| defined for the system. j 

i i 

[NUCB 

1 

i 

i 

j 

EQU 

1 

1 13 

i 

l 

1 1 

| Specifies the maximum number of unit control blocks (UCBs)| 

| that can be incorporated into the system. j 

1 1 

| NXCA 

l 

i 

t 

i 

i 

i 

EQU 

1 

1 4 

i 

i 

i 

i 

j Specifies the length (in words) of the extended save area ofj 
| the user communication region. The extended save area is| 

| usually used to store accounting routine output. Its) 

| maximum length is dependent only upon installation require-j 
| ments. | 


SYSTEM CONTROL BLOCKS AND TABLES 


The sections that follow describe the 
content and formats of system control 
blocks and tables which can be modified 
during system editing. 


Unit Control Block 


The Unit Control Block (UCB) provides 
information about the characteristics of a 
specific input/output device. There must 
be one UCB for each uniquely addressable 
input/output device in the installation's 
machine configuration,. The format of the 
UCB is shown in Figure 8 in Appendix A. 

UCB Table : Unit control blocks are stored,, 
contiguously,, in the UCB Table, an area of 
the resident supervisor. The size of the 
table can be extended, without defining any 
UCB fields, by increasing the operand value 
of the supervisor EQU instruction labeled 
NUCB. (This instruction is described in 
the section "Assembler Instructions in the 
Supervisor.") Extending the table in this 
way provides an installation with greater 
flexibility in its use of ADD and SUB 
commands. Additional information related 
to this subject can be found in the chapter 
entitled "ADD and SUB Command Usage." 


To add a UCB to the table, which may be 
necessary when, for example, a new 
input/output device is permanently attached 
to the system, the user must insert the 
following statements. 


i-l. UCBnnn EQU * 

2. DC X'Ocuu' 

[3. DC X'mm" 

j 4. DC X'tt' I 

| 5. DC (LUCB-4)X'00' j 

L__J 


UCBnnn 

is a symbolic label; nnn represents 
the relative location of the UCB with¬ 
in the table. For example, 018 would 
be the eighteenth UCB in the table. 

cuu 

is the unit address, in hexadecimal 
form, of the device described by the 
UCB. 

mm 

is device mode (see Figure 11 in 
Appendix C). 

tt 

is the device type (see Figure 11 in 
Appendix C). 

LUCB 

is a symbol representing the length in 
bytes of the UCB. 
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To replace a UCB in the table, which may 
be necessary when, for example, an 
input/output device is permanently substi¬ 
tuted for another device in the system, the 
user must replace three DC statements, 
statements 2 through 4 above. 

To delete a UCB, which may be necessary 
when,, for example, an input/output device 
is permanently removed from the machine 
configuration,, the user must delete all 
five statements. 


File Control Block 


The File Control Block (FCB) provides 
information about the characteristics of a 
specific data set and the volume on which 
it resides. There must be one FCB for each 
symbolic unit defined for the system. The 
format of the FCB differs by device type; 
the FCBs for each type are shown in Figures 
9 and 10 in Appendix B. 

FCB Table: File control blocks are stored, 
contiguously, in the FCB table, an area of 
the resident supervisor. 

To provide space for a new FCB in the 
table* which may be necessary when, for 
example, the installation designs a program 
containing a job step referring concurrent¬ 
ly to more symbolic units than there are 
FCBs provided for in the table 1 , the user 
must insert the following DS statement. 

r- 1 

|FCBnnn DS (LFCB/4)F | 

L_J 

FCBnnn 

is a symbolic label; nnn represents 
the relative location of the FCB with¬ 
in the table. For example, 022 would 
be the twenty-second FCB in the table. 

LFCB 

is a symbol representing the length in 
bytes of the FCB. 


System Unit Table 


The system unit table is a arcup of 
contiguous 2-byte blocks in the system 
communication region. Each block contains 
information relating a symbolic unit to its 
associated UCB and FCB. For each entry in 


1 See Table 5 for the number of FCBs provid¬ 
ed for in the distributed version of the 
system. 


the table, there are two address pointers: 
a 1-byte UCB pointer pointing to a UCB in 
the UCB table* and a 1-byte FCB pointer, 
pointing to an FCB in the FCB table. 

In the distributed version of the sys¬ 
tem, 21 symbolic units are provided for in 
the system unit table. The symbols of 
these units can be determined from the 
first 21 entries in Table 7. If additional 
units are required the user must enter an 
appropriate FCB pointer into the system 
unit table for each additional unit. (The 
UCB pointer is placed into the system unit 
table by the system.) The following DC 
statements can be used to enter an FCB 
pointer: 

r - 1 

|SYSnnn DC X'00' j 
j DC X * pp 1 | 
L_J 

SYSnnn 

is a symbolic label; nnn represents a 
number which when added to 16 speci¬ 
fies the relative location of the 
entry within the table. For example, 
006 specifies the twenty-second 
(006+16) entry in the table, i.e., the 
entry for the first additional unit. 

PP 

is , the relative FCB number (in 
hexadecimal). 


Chann el Queue 


The channel queue is used, during proc¬ 
essing* to keep track of all input/output 
requests not yet executed by the system. 
Each entry in the queue occupies four 
bytes. The distributed version of the 
system provides for 20 channel queue 
entries. If the user wants to change this 
number* he must reassemble the supervisor 
and change the operand value of the EQU 
instruction labeled NCHQ. (See the section 
"Assembler Instructions in the 
Supervisor.") Changing the operand value 
effectively changes the size of the queue. 
The maximum size of the queue is dependent 
only upon installation requirements and 
storage availability; the minimum size is 
one entry (four bytes). 


Channel Command Word Area 


The channel command word (CCW) area is 
used for the storage of channel command 
words during IPL processing. Each channel 
command word occupies eight bytes. In the 
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distributed version of the system,, 60 
entries are provided for the area. If the 
user wants to change this number, he must 
change the operand value of the EQU 
instruction labeled NCCW. (See the section 
"Assembler Instructions in the 
Supervisor,.") Changing the operand value 
effectively changes the size of the storage 
area. 

As a general rule, the area should be 
large enough only to accommodate the CCWs 
for all devices specified in unit control 
blocks either at assembly or IPL time. The 
maximum size of the area, however,, is 
dependent upon installation requirements 
and storage availability. 


dob Control Device Table 


To add a new device to the system, the 
user must either provide new entries or 
make changes to existing entries in the 
initialization device table, the job con¬ 
trol device table, and the CCW table. If 
an entry is added to the job control table, 
the user must also change the count of the 
number of bytes alloted to the table. The 
count field is maintained in the convert 
type routine, which is labeled CTYP. 

Depending upon installation require¬ 
ments, it may also be necessary when adding 
a new device, to modify the supervisor 
assembler instructions labeled NCCW, NFCB, 
NSUT, and NUCB. A description of these 
instructions can be found in the section 
"Assembler Instructions in the Supervisor." 


REASSEMBLY OF THE ASSEMBLER PROGRAM 


The job control device table, shown in 
Figure 12 in Appendix C, is used bv the job 
control processor to convert to an internal 
code a device type (e.g., 1052) specified 
by the user in a control statement. The 
code is used to find the UCB for the device 
type specified. 


Channel Command Word Table 


The channel command word (CCW) table, 
shown in Figure 13 in Appendix C, contains 
the channel command words included in the 
distributed version of the system. The 
number of channel command words required 
for an input/output operation varies 
according to the device; the number and 
contents of these words are given in the 
publication that describe each device. 


Initialization Device Table 


The initialization device table is used 
by the system to obtain device-related 
information during the initial program 
loading (IPL) procedure. The format of 
this table as it appears in the distributed 
version of the system is shown in Figure 11 
in Appendix C. 

Adding a New Inp ut /Outp ut Device: The 
following text indicates the changes that 
would be made during system editina to add 
a new input/output device to the system. 
Additional information related to this 
subject can be found in the chapter 
"Execute Channel Program." 


The symbolic source deck of the assem¬ 
bler program contains assembler and condi¬ 
tional assembly instructions that have 
operand values which can be changed to 
specify conditions that apply at a particu¬ 
lar installation. The EC instruction that 
specifies the default conditions for the 
EXEC statement will be used to illustrate 
an assembler instruction in the assembler 
program. 


To change the default conditions for the 
EXEC statement, the system programmer must 
change the operand of the EC instruction 
labeled SWSPH1, part of the assembler com¬ 
munication region. The operand of the DC 
instruction, which defines the contents of 
two bytes, is specified as K^OTO* in the 
distributed system and, therefore, bits 0, 
9, 10, and 11 are set to 1. The default 
condition associated with each bit defined 
by SWSPH1 is as follows: 


Bit 

Default 

Number 

Condition 

0 

Assembler 

1 

UPDASMB1 

2 

UPDASMB2 

3 

UPDASMB3 

4 

UPDATE1 

5 

UPDATE2 

6 

not used 

7 

SYMBMAX 

8 

LINK 

9 

DECK 

10 

LIST 

11 

XREF 

12-16 

not used 


Setting in 
Distribute d Syste m 
1 
0 
0 
0 
0 
0 
0 

0 (see note) 

0 

1 

1 

1 

0 


Note: When this bit contains a 0, it is 
equivalent to specifying the SYMBMIN 
option. If the user specifies the SYMBnnn 
option, this bit is ignored. 
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A conditional assembly instruction is 
included in the assembler program to pro¬ 
vide a means of eliminating large blocks of 
comments from the listing of the assembler 
program, thereby reducing the time required 
to print the listing. The conditional 
assembly instruction in the distributed 
version is; 


obtained as explained under "Component Com¬ 
ments Modules." 


C onditi ona l As sembl y Instruc tio ns in the 
F ORTRAN Library 


£REMARK SETA 1 

The 1 in the operand indicates that all 
comments are to be listed. By using a SETA 
instruction with a 0 in the operand, the 
large blocks of comments can be omitted 
from the listing. 

A complete list of assembler and condi¬ 
tional assembly instructions that may be 
changed is contained in the component com¬ 
ments module,, which can be obtained as 
explained under "Component Comments 
Modules." 


REASSEMBLY OF FORTRAN COMPONENTS 


The symbolic source deck of FORTRAN 
contains assembler and conditional assembly 
instructions that have operand values which 
can be changed to specify conditions that 
apply at a particular installation. Exam¬ 
ples of assembler and conditional assembly 
instructions that can be changed are given 
below. 


Assembler Instructions in th e FORT RAN 
Compiler 


To change the default conditions for the 
EXEC statement,, the system programmer must 
change the operand of the DC instruction 
labeled FORTOPT. The operand of the DC 
instruction,, which defines the contents of 
one byte,, is specified as X*48' in the 
distributed system and, therefore, bits 1 
and 4 are set to 1. The default condition 
associated with each bit defined bv FORTOPT 
is as follows: 


Bit 

Number 

0 

1 

2 

3 

4 

5 

6-7 


Default 

Condition 

MAP 

LINK 

DECK 

not used 

SOURCE 

BCD 

not used 


Setting in 
Distribu t ed Sy stem 
0 
1 
0 
0 
1 
0 
0 


A complete list of assembler instruc¬ 
tions that may be changed is contained in 
the component comments module, which can be 


The following conditional assembly 
instruction, which is included in the 
BOAUOPT routine in the distributed system,, 
specifies that the boundary adjustment rou¬ 
tine (ENAADJST) is to be used by the 
system: 


\ 6FIX SETA 1 ] 

l _J 


If the BNAADJST routine is not to be 
used,, the system programmer must change the 
operand of this instruction to a 0. 

The following conditional assembly 
instruction,, which is included in the 
BOAUOPT routine in the distributed system,, 
specifies that error messages indicating 
that the boundary adjustment routine has 
corrected an error are net to be printed: 


r - 1 

j £PRNTMES SETA 0 j 

L-J 


If error messages are desired,, the sys¬ 
tem programmer must change the operand to a 
number from 1 through 254; the number 
indicates the maximum number of times the 
error message is to be printed. Note that,, 
although the printing of the message stops 
when the specified number is reached, the 
boundary adjustment routine continues to 
operate normally. 

The number of units available to the 
FORTRAN compiler is specified by the fol¬ 
lowing conditional assembly instruction,, 
which is included in the UNITAB routine in 
the distributed system: 

r--- 1 

j £UNITS SETA 8 j 
l-J 

The system programmer can increase (8 is 
the minimum) the number in the operand to 
15 without additional changes to the sys¬ 
tem. However,, if more than 15 units are to 
be used, the system programmer must expand 
the system unit table (see "System Unit 
Table") to include the additional units and 
must associate the new data set reference 
numbers with the new entries in the system 
unit table. This asscciation is done by 
inserting a group of five DC instructions 
for each new unit into the UNITAB routine 
ahead of the EQU statement labeled 
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ENDTABLE. The groups of DC instructions S tat u s 2: The value of bb is determined by 

that must be inserted for each data set the settings of the following bits: 

reference number over 15 is as follows: 


Instructions 

Notes 

Bit 

Bit 


DC 

X’aa* 

See "Status 1" 

Number 

Setting 

Meaning 

DC 

X'bb' 

See "Status 2" 

0 

0 

The unit is not a 

DC 

AL1(NOLL) 




SYSname type unit 

DC 

X 1 cc' 

See "Index Number" 


1 

The unit is a SYSname 

DC 

A (1) 




type unit 

Status 1: The 

value of aa is determined by 




the 

settings of 

the following bits: 

1 

0 

Input operations are 






allowed on this unit 

Bit 

Bit 



1 

No input operations are 

Number Setting Meaning 



allowed on this unit 

0 

0 

Data set closed 





1 

Data set open 







2 

0 

Output operations are 

1 

0 

Null condition 



allowed on this unit 


1 

Sequential input/output 


2 

No output operations are 



operation performed 



allowed on this unit 

2 

0 

Last operation was READ 

3 

0 

Control operations are 



or WRITE 



allowed on this unit 


1 

Last operation was a 


1 

No control operations 



control operation 



are allowed on this 






unit 

3 

0 

Last input/output opera¬ 






tion did not refer to 

4-7 

0 

Not used 


a FORMAT statement 
1 Last input/output opera¬ 

tion referred to a 
FORMAT statement 


4 0 


1 


5 0 

1 

6 0 

1 


Last input/output opera¬ 
tion was an input 
operation 

Last input/output opera¬ 
tion was an output 
operation 

Last control operation 
was net a BSR opera¬ 
tion 

Last control operation 
was a BSR operation 

Last control operation 
was not an REW opera¬ 
tion 

Last control operation 
was an REW operation 


In dex Num b er : The value of cc specifies 
the position of a unit in the system unit 
table to be associated the data set ref¬ 
erence number represented by this group of 
DC instructions. The data set reference 
number is determined by the position of a 
group of DC instructions in the sequence of 
groups that define all of the units. 


R eassigni ng Units : A data set reference 
number can be associated with a different 
unit in the system unit table by changing 
the DC instruction that specifies the index 
number. However,, the system programmer 
must make sure that the DC instructions 
defining status 1 and status 2 allow the 
operations that he wants and/or provide the 
protection that he wants. 


7 0 

1 


Last control operation 
was net a WEF opera¬ 
tion 

Last control operation 
was a WEF operation 


A complete list of conditional assembly 
instructions that may be changed is con¬ 
tained in the component comments module,, 
which can be obtained as explained under 
"Component Comments Module." 
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SYSTEM EDITING PROCEDURE 


This section describes the procedures to 
be followed when modification of a system 
component becomes necessary. 


COMPONENT COMMENTS MODULES 


After the system programmer has deter¬ 
mined that modifications to a system compo¬ 
nent are necessary for his purposes, f he 
should obtain the component comments module 
for that component. A component comments 
module contains all pertinent facts regard¬ 
ing all assembly parameters or default 
settings for a component; it also contains 
the linkage editing procedures for using 
the relocatable modules produced by the 
assembler program. 

A component comments module is the first 
assembly module of each component. A list¬ 
ing is obtained by using the assembler 
update feature to print the contents of the 
desired module (see Figure 2). The follow¬ 
ing lists show the identifications of the 
component comments modules for each compo¬ 
nent: 


Components 
on Reel 1 
Save/Restore 

Print/Punch 

Absolute Loader 

System Construction 

IPL Program 

Supervisor 


Module 

Identification 

BACA0000 

BAEA0000 

BEAA0000 

BCAA0000 

BDAA0000 

BFAA0000 


Components 
on Reel 1 

Module 

Identification 

Job Control 

BIAA0000 

Linkage Editor 

EKAAOOOO 

Assembler 

ELAA0000 

Utility Programs 

EMAA0000 

Components 
on Reel 2 

Module 

Identification 

FORTRAN Compiler 

ENAAOOOO 

FORTRAN Object Fix 

ENXA0000 

FORTRAN Expander 

ENZA0000 

FORTRAN Library 

BOAAOOOO 


The job shown in Figure 2 illustrates 
the method of obtaining a listing of the 
component comments module. In this job* 
the contents of the module for the linkage 
editor are obtained. 

EDITING USING TWO DISKS 


After the appropriate symbolic modifica¬ 
tions have been prepared using the informa¬ 
tion given in the component comments module 
(see also "Preparation for System 
Editing"), the system programmer must reas¬ 
semble and link edit the modified component 
to replace the existing one. The reassem¬ 
bling and link editing is most safely done 
using two single disk storage drives, one 
magnetic tape unit and, for system data set 
SDS001, either an additional magnetic tape 
unit or the equivalent storage space on an 
IBM 1316 Disk Pack. However,, another addi¬ 
tional magnetic tape unit is required for 
system data set SDS003 whenever the system 
programmer desires to modify the FORTRAN 
compiler or to retain the updated symbolic 
component. 


r ~ 

|//LIST 

i 

JOB 



1 

j//SYS002 

i 

ACCESS 

SYSSYM,24 00='REEL1' 


i 

|// 

i 

LABEL 

1600 


1 

|//ASM 

i 

EXEC 

ASSEMBLE(OPDASMB3.NCLINK,NODECK) 


i 

i 

i 

SKPTO 

BKAA0000 


1 

|/* 

i 



1 BKAA9990 

|/S 

I-- 

| ^-This symbol must begin in column 73. 

i __ _ _ _ _ _ _ 

— 

Figure 2. 

Listing 

a Component Comments Module 
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The procedure for editing using two 
disks is as follows: 


1. Initialize the second disk using the 
utility programs of the existing sys¬ 
tem. 


2. Allocate space for the various system 
data sets as explained under 
"Preparation for System Construction." 


3. Copy the IPL data set from the origi¬ 
nal system (i.e., the system being 
modified) to the new system using the 
COPY function of the utility programs. 


If members of the module library are 
being replaced, the remaining steps are 
replaced by the procedure given under 
"Replacement of Module Library Members." 
Note that if the supervisor is the member 
being replaced, the system programmer must 
know the ending location (SVAREA+80) of the 
new supervisor; if the ending location is 
greater than that of the original supervi¬ 
sor, all components must be reassembled and 
replaced. In the distributed version of 
the system, the ending location (SVAREA+80) 
of the supervisor is 4200 (hexadecimal). 


4. Copy the phase library, excluding 
those members that are to be replaced, 
from the original system to the new 
system using the CPYMEM function of 
the utility programs. 

5* Reassemble and link edit the replace¬ 
ment members for the phase library 
using the phase library data set of 
the new system as SYSAB2. 

6. Copy the module library from the orig¬ 
inal system to the new system using 
the CPYMEM function of the utility 
programs. 

1* Execute the IPL procedure and define 
the system units; specify the FIX 
option in the SET card (see "Initial 
Program Loading (IPL) Procedure"). 


R eplacement of Module Library M embers 


The following procedure, which replaces 
steps 4 through 7 above, is used when a 


member of the module library is to be 
replaced: 


4. Copy the phase library from the origi¬ 
nal system to a new system using the 
CPYMEM function of the utility pro¬ 
grams . 

5. Copy the module library, excluding 
those members that are to be replaced,, 
from the original system to the new 
system using the CPYMEM function of 
the utility programs. 


6. Reassemble and place the new members 
into the module library using the 
CPYMEM* function of the utility pro¬ 
grams. 


7. Execute the IPL procedure and define 
the system units; specify the FIX 
option in the SET card (see "Initial 
Program Loading (IPL) Procedure"). 


E xample o f Editing Using Two Di sks 


To illustrate system editing, an example 
showing the replacement of the linkage 
editor is shown in Figure 3, For this 
example, it is assumed that system data set 
SDS000 is large enough to contain the 
relocatable output and that system data set 
SDS001 is on magnetic tape. 


For modifications to some sections of 
the FORTRAN compiler, it is necessary to 
make cne pass using the UPDATE1 option to 
insert changes into the original FORTRAN 
symbolic language program. The output of 
that pass is then read from SYS003 as 
input 1 to the FORTRAN expander program, 
which creates input that is acceptable to 
the assembler program and writes the creat¬ 
ed input 1 on SYS002. Finally, the output 
from the expander program is used as input 
to an assembly pass using the UPDASMB3 
option to obtain the modified module in 
relocatable form. When a section of the 
FORTRAN compiler is modified in this way, 
two magnetic tape units are used as SYS002 
and SYS003 until the final pass. 


^-Blocked 20 cards to a record. 
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//INIT 

JOB 


- - 

// 

EXEC 

UTILS 


INITIAL 

TYPE=SDSD,DVADR=OC1„VOLID= 1 SYSRES 1 ,VTOC=50 


/* 




// 

ALLOC 

SDSIPL,0C1=’SYSRES V,1 


// 

LABEL 

28 80,RECLEN=288 0 


// 

ALLOC 

SDSABS,SAME=SDSIPL,500,119,FMT 


// 

LABEL 

720,RECLEN=720 


// 

ALLOC 

SDSREL, SAME=SDSIPL ,500,, 179 


// 

LABEL 

360,iRECLEN=72 


// 

ALLOC 

SDSPSD,SAME=SDSIPL,0,119 


// 

LABEL 

360,RECLEN=360 


// 

ALLOC 

SDSUAS,SAME=SDSIPL, 4 


// 

LABEL 

720,RECLEN=7 2 0 


// 

ALLOC 

SDS000,SAME=SDSXPL,1000 


// 

LABEL 

360,RECLEN=360 


/* 

/£ 

//REPLAC 

JOB 



//SYS0C3 

ACCESS 

SDSIPL,SAME=SDSIPL 


//SYS002 

ACCESS 

SDSIPL,SAME=SYSAB1 


// 

EXEC 

UTILS 



COPY 

SIZIN=288 0 ,SIZOUT = =28 80 


/* 

//SYS002 

ACCESS 

SDSABS,SAME=SYSAB1 


//SYS003 

ACCESS 

SDSABS, SAME=SDSIPL 


// 

EXEC 

UTILS 



CPYMEM 

EXCL=(EKLNKEDT,BKLNKED1,BKLNKED2),SIZIN=(720,720) 


/* 

//SYS002 

ACCESS 

SYSSYM,08 0=’REELl* 


// 

LABEL 

1600,RECLEN=80 


//SYS001 

ACCESS 

SDS001,081=FREStt 


// 

LABEL 

360 


//A 

EXEC 

ASSEMBLE(LINK,UPDASMB3) 



SKPTO 

BKA00000 


* 

* 

CHANGE 

CARDS 


* 

/* 

//SYSAB2 

ACCESS 

SDSABS,SAME=SDSIPL 

^^99990 

//MODULE 

EXEC 

LNKEDT (KEEP,,NOAUTO) 


* 

LINKEDIT DECK FROM COMMENTS MODULE OTHER THAN MODULE CARDS 


/* 

//SYS002 

ACCESS 

SDSREL,SAME=SYSAB1 


//SYS003 

ACCESS 

SDSREL,SAME=SDSIPL 


// 

EXEC 

CPYMEM 

SIZIN=(360,360) UTILS 


/* 




/& 




// 

STOP 

IPL S FIX 0C1 

1 

^-This symbol must 

begin in column 73. 

1 

1 

J 


Example of E dit ing Using On e Disk 


Figure 3. Editing Using Two Disks 
EDITING USING ONE DISK 


If two single disk storage drives are 
not available, system editing can be done 
using only one drive. The procedure is 
illustrated by the example that follows. 


An example of a method for system edit¬ 
ing that can be used if only one disk is 
available is shown in Figure 4. For this 
example, it is assumed that system data 
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sets SDSOOd* SDS001,* and SDS002 are on 
magnetic tape. If system data set SDS003 
is needed* it is assumed that it also is on 
magnetic tape. 


Note that when using this alternate 
method* if an input/output error occurs 
between the DELETE and RENAME statements 
(second and third statements from end of 
Figure 4),, the process will not be complet¬ 
ed. 


The above method can also be used if 
there is enough space on the system resi¬ 
dence volume to contain both SDS000 and 
SDS001. If such space is available* only 
SDS002 need be on magnetic tape. To 
increase the amount of available space on 
the system residence volume* the system 
programmer can delete all data sets (e.g., 
the module library) that are not required 
for system editing; later* after system 
editing has been completed* the deleted 
data sets can be added to the new system 
residence volume. 


If only one magnetic tape drive is 
available and it is impossible to allocate 
space in disk storage for either SDS000 or 
SDS001,* the optional symbolics may be 
punched by assigning SDS003 to the punch 
unit and using the UPDASME1 option of the 
assembler program. The magnetic tape drive 
is then available to contain SDS000 or 
SDS001 (whichever cannot be allocated to 
disk storage). The procedure is then the 
same as shown in Figure 4* except that the 
ASSEMBLE option of the assembler program is 
used instead of the UPDASMB3 OPTION. 


SYSTEM MODULES 


Table 9 of Appendix D lists all modules 
of the distributed version of the system* 
including FORTRAN IV library subprograms. 
It is intended as reference material* to 
assist the user during system editing in 
identifying the various segments of the 
system. 


//INIT 

JOB 



// 

ALLOC 

SDSAB2,SAME=SYSAB1, 500,119 , FMT 


// 

LABEL 

720,RECLEN=720 


/* 

/S 

//REPLAC 

JOB 



//SYS002 

ACCESS 

SDSABS,SAME=SYSAB1 


//SYS003 

ACCESS 

SDSAB 2,SAME=SYSAB1 


//CPY 

EXEC 

UTILS 



CPYMEM 

EXCL=(BKLNKEDT.BKLNKED1,BKLNKED2),SIZIN= <720,720) 


/* 

//SYS002 

ACCESS 

SYSSYM,080='REELl' 


// 

LABEL 

1600,RECLEN=80 


//SYSOOO 

ALLOC 

SDS000,081=FRESH 


//SYS001 

ALLOC 

SDS001» 082=FRE3H 


//MODULE 

EXEC 

ASSEMELE(LINK,UPDASMB3) 



SKPTO 

BKA00000 


* 

* 

CHANGE 

CARDS 


* 

/* 

//SYSAB2 

ACCESS 

SDSAE2,SAME=SYSAB1 

*6^99990 

//LNK 

EXEC 

LNKEDKKEEP, NOAUTO) 


* 

LINKEDIT DECK FROM COMMENTS MODULE OTHER THAN MODULE CARDS 


/* 




// 

ACCESS 

SDSAES,SAME=SYSAB1 


// 

DELETE 

SDSABS 


// 

RENAME 

SDSAB2,SDSABS 


// 

PAUSE 

RE-IPL RESIDENCE VOLUME 


*This symbol must 

begin in column 73. 



Figure 4. Editing Using One Disk 
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WRITING AN INSTALLATION ACCOUNTING ROUTINE 


'This chapter provides the information 
required to write an installation account¬ 
ing routine and add the routine to the 
Model 44 Programming System. The routine 
resides in the phase library and will be 
loaded automatically by the job control 
processor at those points when accounting 
statistics (i.e. if the data supplied by JOB 
and EXEC statements) are available. 

Specification of _the_ Acc ounting Routine : 

To specify the use of an installation 
accounting routine* the user must change 
the operand value of the supervisor SETA 
instruction labeled SACCNT from 0 to 1. 
(See the section "Conditional Assembler 
Instructions in the Supervisor" in the 
chapter entitled "System Construction and 
Editing.") 

Entry to the _Acco untin g Routine: The 

accounting routine receives control when 
the job control processor completes the 
reading of a STOP statement or of a JOB or 
EXEC statement that specifies the optional 
"accounting information" field. Tne state¬ 
ment that has caused the entry is identifi¬ 
ed by a hexadecimal code the system places 
in register 0. These codes are listed 
below: 

Cod e Meaning 

00 Identifies a JOB statement. 

04 Identifies an EXEC statement. 

08 Identifies a STOP statement. 

Size of the Routine: The size of an 
accounting routine must not exceed 4096 
bytes* 

Addres si ng _ within _the Accounting Rou tine: 

Because the actual main storage address in 
which the accounting routine will ue loaded 
is not known to the user, the routine must 
be "address-free." This means that the 
routine may not use address constants that 
refer to addresses within the routine. 
Such addresses must be dynamically generat¬ 
ed* e.g.* by the Load Address (LA) instruc¬ 
tion. 


returned after execution of the routine. 
Register 1 contains the address of the 
entry point of the accounting routine and* 
therefore* may be used for initial base 
addressing. 


Input to the Accounting Routine: The sys¬ 
tem provides accounting information in the 
user communication region, an area within 
the system supervisor. SVC 18(EXTRACT) is 
used to obtain the location of the communi¬ 
cation region. 

EXTRACT causes the system to place the 
address of byte 0 of the user communication 
region into register 1 and to return con¬ 
trol to the calling program. The address 
of any particular word or byte within the 
region is obtained by adding the byte ccunt 
to this value. 

The communication region contains the 
accounting information listed below. A 
complete description of the contents of the 
communication region can be found in the 
chapter "User Communication Region". 

Word Byte Description 

6,7 24-31 Job name, in EBCDIC form* 

specified by the user in a 
JCE statement. 


8*9 32-39 Job step name* in EBCDIC 

form* specified by the user 
in an EXEC statement. 

32-35 128-143 Accounting information. This 

information* in EBCDIC 
form, is a copy of the 
accounting information 

field specified by the user 
in either a JOB or EXEC 
statement. 


Additional data for the accounting rou¬ 
tine* such as timing information* can be 
obtained through the use of an SVC. A full 
description of all applicable SVCs is con¬ 
tained in the publication IBM System/36 0 
M ode l_44 Programming System: Gu ide to Sys ¬ 
te m Us e, Form C28-6812. 


Register Usage : Registers 0* 1, and 15 can 
be used in an accounting routine without 
saving their contents. However* if reg¬ 
isters 2 through 12 are to be used, their 
contents must first be saved? register 13 
contains the address of an 11-word 
register-save area. Register 14 contains 
the address of the location in the job 
control processor to which control can be 


Out put from t he_Account ing _Ro utine: Data 

generated by installation accounting rou¬ 
tines can be stored* for later analysis, in 
the extended save area of the user communi¬ 
cation region, bytes 144 and up. The size 
of this area is determined by the installa¬ 
tion during system editing. Data stored in 
this area is never altered by the system. 
Additional information about the save area 
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can be found in the chapter "User Communi¬ 
cation Region," 


Exit from the Accounting Routine : The 
accounting routine can return control to 
the system in either of two ways: normally 
or abnormally* The normal return is to 
restore the contents of registers 2 through 
12 and issue a BCR 15,14 instruction. The 
abnormal return,, which might be resorted to 
if an unacceptable account number were 
read, is to issue an SVC 15 to cancel the 
job. CANCEL causes the system to terminate 
the current job immediately. A message for 
the operator is written* and a dump is 
taken if a dump was requested in the job's 
control statements. The system then loads 
the job control processor,, which reads the 
system input unit* ignoring all statements 
until a JOB statement is detected. 


A dding the Accounting Rou tine t o the _ Sys ¬ 

tem : The accounting routine must be added 
to the system as a permanent member of the 
phase library. To add the routine, provide 
an EXEC statement to execute the linkage 
editor, and specify KEEP in the parameter 
list field; follow the EXEC statement with 
a PHASE statement specifying BACCOUNT as 
the phase name. The value specified for 
the origin parameter of the PHASE state¬ 
ment; must be either * or S. The PHASE 
statement must be followed by an INCLUDE 
statement and* if execution of the account¬ 
ing routine is to begin with other than its 
first instruction or one indicated by an 
END card (assembly end), an ENTRY state¬ 
ment* (These statements are described in 

the publication IBM_S yste m/360 Mo d el 4 4 

Progr ammi ng System: Gui de _to_ System Use * 

Form C28-6812.) 
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ADD AND SUB COMMAND USAGE 


This chapter provides information 
directed specifically to the system pro¬ 
grammer about the use of the ADD and SUB 
commands. Both of these commands provide 
the user with a means of changing an 
installation's input/cutput device configu¬ 
ration during the initial program loading 
(IPL) procedure. 


ADD AND SUB COMMANDS 


During the IPL procedure the operator* 
by issuing ADD and SUB commands* can speci¬ 
fy changes that have been made to the 
installation's input/output device configu¬ 
ration. The ADD command informs the system 
of the availability of a new device 1 ; the 
SUB command removes a previously available 
device from the system. There is a direct 
relationship between the use of ADD and SUB 
and several system control blocks and 
tables* The system programmer should 
understand this relationship to avoid the 
misuse of these commands at his installa¬ 
tion. 

ADD causes the system t.c enter an addi¬ 
tional unit control block (UCE)* for the 
specified device, into the UCB table. SUB 
causes the system to delete the UCB pre¬ 
viously associated with the device. 

Consequently* the maximum number of 
valid ADD commands that can be issued is 
dependent upon two variables: the number 
of SUB commands previously issued* and the 
size of the UCB table. As a precautionary 
measure* then* the operator should issue 
any required SUB commands before issuing 
ADD commands. It is the installation's 
responsibility* however* to increase the 
size of the UCB table* when necessary. 


Note: The use of SUB commands may make it 
necessary for the operator to redefine 
units that follow the one that was deleted. 

The size of the UCB table can be 
increased by reassembling the supervisor 


Additional information relating to the 
addition of a new device can be found in 
the chapter entitled "Execute Channel 
Program"* under the heading "Modifying the 
Device Table." 


and changing the operand value of the 
supervisor EQU instruction labeled NUCB. 
For a description of supervisor EQU 
instructions, see the section "Conditional 
Assembler Instructions in the Supervisor" 
in the chapter "System Construction and 
Editing." 


The formats of the ADD and SUB commands 
are shown below. Additional information 
about these commands can be found in the 
publication IBM_Syste m/360 _M odel 44 Pro¬ 
g rammin g_Syst em :_Operat or' s_ Guide * Form 

C28-6815. 


The ADD Command 


The ADD command indicates to the system 


the availability of an additional 
input/output device. 

r- 1 

| ADD type* devadr | 

L_ J 


type 

Specifies the type of device to be 
added. Valid entries are shown in 
Table 6. 

devadr 

Specifies the address of the device to 
be added* expressed in hexadecimal 
form as cuu, where cuu is as described 
under "SDSIPL (IPL Record)." 


The SUE Command 


The SUB command informs the system that 
a specified device is no longer available* 
and should* therefore* be subtracted from 
the list of available devices. 

r- 1 

| SUB devadr | 

i-j 

devadr 

Specifies the address of the device to 
be subtracted* expressed in hexadeci¬ 
mal form as cuu* where cuu is as 
described under "SDSIPL (IPL Record)." 
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Table 6* Device Types 


r- T - 

(Type Field Entry | 

j.-+- 


Explanation 


SDSD 

1316 

2400 

2400II 

2400D 

2400T7 

2400T7C 

1052 

1442 
1442P 
2520 
2520P 
2501 
2540 
2540P 
1403 
1403M7 

1443 
1443S 


Single Disk Storage Drive 
IBM 2311 Disk Storage Drive 

IBM 2400 Magnetic Tape Unit with a 9-track read/write head—800 
bytes/inch onlv 

IBM 2400 Magnetic Tape Unit with a 9-track read/write head—1600 
bytes/inch onlv 

IBM 2400 Magnetic Tape Unit with a 9-track read/write head—dual 
density 

IBM 2400 Magnetic Tape Unit with a 7-track read/write head 

IBM 2400 Magnetic Tape Unit with a 7-track read/write head and the 

convert feature 

IBM 1052 Console Printer Keyboard 

IBM 1442-N1 Card Read-Punch 

IBM 1442-N2 Card Punch 

IBM 2520 Card Read Punch 

IBM 2520-B2, B1 Card Punch 

IBM 2501 Card Reader 

IBM 2540 Card Read-Punch (reader side) 

IBM 2540 Card Read-Punch (punch side) 

IBM 1403 Printer-Model 2, 3 or N1 (132 characters) 

IEM 1403 Print-Model .7 (120 characters) 

IBM 1443 Printer-Model Nl (120 characters) 

IBM 1443 Printers-Mcdel N1 (144 characters) special feature 
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USER COMMUNICATION REGION 


This chapter contains information about 
the user communication region, its format 
and use. It is included in this publica¬ 
tion to reduce the user's need to refer to 
other publications. The chapter should be 
especially helpful to readers who are 
designing an installation accounting rou¬ 
tine. 


The user communication region is an area 
within the system supervisor that may be 
used by both system programs,, such as the 
assembler, and problem programs. Programs 
may read information from this area but, to 
avoid accidental destruction of system 
data,, should use supervisor calls to insert 
or alter information. 


Its contents are as follows: 

Wor d Byte D escriptio n 

0,1 0-4 Date, set by the operator,, 

in the form yyddd, where 
yy is the year and ddd is 
the day of the year 

(001-366). 

2 8-11 Address of the first byte 

of the problem program 
area. 

3 12-15 Address of the last byte 

available for use by the 
problem program. 

4 16-19 Address of the highest byte 

in the problem program 
area filled by a phase 
loaded by means of any 
FETCH or LOAD supervisor 


5 20-23 Address of the last byte in 

the problem program area 
filled by the most recent 
FETCH or LOAD supervisor 
call. 

6,, 7 24-31 Job name in EBCDIC charac¬ 

ters. 


Word B yte Description 

8,9 32-39 Job step name in EBCDIC 

characters. 


10 40 User program switch byte. 

This byte is set to zeros 
whenever the system reads 
a JOB control statement. 


10 41 Highest assembly error sev¬ 

erity. Reset to zero by 
JOB statement. 

00 - Normal. No errors. 
04 - Warning messages 

listed. Execution 
should be success¬ 
ful. 

08 - Error messages list¬ 
ed. Execution may 
fail. 

0C - Severe errors. Exe¬ 
cution impossible. 

10 - Terminal errors. 

Job has been can¬ 
celled. 


10 42,43 Not used. 


11 44-47 User interprogram communi¬ 

cations area. This area 
may be used by one job 
step to preserve informa¬ 
tion for use by a later 
job step. This area is 
set to zeros whenever the 
system reads a JOB con¬ 
trol statement. 


12,13 48-55 User intraprogram communi¬ 
cations area. This area 
may be used by one job 
step phase to preserve 
information for use by 
another phase within the 
same job step. This area 
is set to zeros whenever 
the system reads an EXEC 
control statement ini¬ 
tiating a new job step. 
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Word Byte 
14-31 56-127 


D escription 

Up to six 8-byte EBCDIC 
option parameters from 
the job step EXEC state¬ 
ment are stored here by 
the job control proc¬ 
essor, If less than six 
parameters are stored, 
the area is padded on the 
right with blanks. The 
area is reset to blanks 
before the beginning of 
the next job step. The 
full 72 bytes of this 
area and the 8-byte 
intraprcgram communica¬ 
tion area also are used 
by the system and proc¬ 
essor programs between 
job steps for temporary 
storage of certain con¬ 
trol statements. 

32-35 128-143 Up to 16 bytes of account¬ 
ing information are 
stored here for use by 
installation routines. 
This information, in 
EBCDIC form, is obtained 
from JOB and/or EXEC 
statements. 

36- 144- Data generated by installa¬ 

tion accounting routines 
may be stored here. This 
field is not included in 
the distributed version 
of the system. The field 
can be included, however, 
by reassembling the 
supervisor and changing 
the operand value of the 
supervisor EQU instruc¬ 
tion labeled NXCA. The 
operand value of this 
instruction specifies the 
size of the field. For 
additional information 
about this instruction, 
refer to the section 
"Assembler Instructions 
in the Supervisor" in the 
chapter "System Construc¬ 
tion and Editing." 


COMMUNICATION REGION SUPERVISOR CALLS 


The communication region supervisor 
calls are INSERT, EXTRACT, UPSAND, and 
UPSOR. They are used for communication 
between a problem program and the system's 
user communication region. 


The applicable codes are: 


INSERT - SVC 17 
EXTRACT - SVC18 
UPSAND - SVC 19 
UPSOR - SVC 20 


INSERT - SVC 17 


The INSERT supervisor call is used to 
store information in the user communication 
region. 

The system does not require a problem 
program to provide any information in this 
area other than that contained in control 
statements. If a program dees use the 
area, however, it should use the INSERT 
supervisor call to reduce the chances of 
accidental destruction of data needed by 
the system. 

It is not necessary to know the location 
of the region to use INSERT. To refer to 
information already stored, the location 
can be determined by use of the EXTRACT 
supervisor call. 

INSERT cannot be used to alter the 
contents of words 0 through 10,, bytes 0 
through 43 of the user communication 
region. 

INSERT cannot be used to modify the user 
communication region permanently. The 
region is reinitialized when the initial 
program load procedure is executed. 

When the INSERT supervisor call is exe¬ 
cuted,, register 1 must contain the address 
of a parameter list. This list consists of 
two words aligned cn full-word boundaries. 
The first word contains the address in the 
problem program area of the information to 
be stored in the user communication region. 
The second word contains the address of a 
4-byte area containing control information. 

The first byte of control information 
must be hexadecimal 00. The second byte 
gives the number cf 4-byte words tc be 
stored in the region. The last two bytes 
indicate where in the region the data is to 
be stored. This last location is expressed 
in terms of the word where the system is to 
start storing the information, the first 
word in the region being word 0. 

For example, to store eight bytes of 
data in the intraprcgram communications 
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area,, words 12 and 13, bytes 48 through 55, 
the following coding could be used: 


INSERT 

EQU 

17 


LA 

1,PARAM 


SVC 

INSERT 

PARAM 

DC 

A(LOC) 


DC 

A(CONTRL) 

LOC 

(data to be stored) 


DS 

OF 

CONTRL 

DC 

X'OO' 


DC 

AL1(2) 


DC 

AL2(12) 

The 

system 

stores the eight 


information at LOC in the intraprogram 
communications area and returns control to 
the instruction following the SVC. The low 
order byte of register 15 contains the 
hexadecimal code 00, indicating no errors. 


communications region. This byte is used 
for communication between job steps as well 
as within a job step- 


When UPSAND is used, the logical product 
(AND) of the user program switch byte and 
the low-order byte of register 1 is stored 
in the user program switch byte. 


When UPSOR is used, the logical sum (OR) 
of the user program switch byte and the 
low-order byte of register 1 is stored in 
the user program switch byte. 


When the two bytes are combined by 
either UPSAND or UPSOR, they are matched 
bit for bit. 


With UPSAND,, if each of the correspond¬ 
ing bits is a 1, the result is a 1. If 
either is 0, the result is 0. 


With UPSOR,, if either of the correspond¬ 
ing bits is a 1, the result is a 1. If 
both are 0, the result is 0. 


These combinations are listed below: 


If an attempt is made to use INSERT to 





store information outside the communi¬ 

A 

B 

UPSAND 

UPSOR 

cations region or in words 0 through 10, 
nothing is stored. Register 15, on return. 

1 

1 

1 

1 

contains the hexadecimal code 04. 

1 

0 

0 

1 

Other registers are unchanged. 

0 

1 

0 

1 


0 

0 

0 

0 


EXTRACT - SVC 18 


The EXTRACT supervisor call is used to 
obtain the location of the communication 
region* 


When an UPSAND or UPSOR supervisor call 
is executed, register 1 must contain a 
comparison byte in its lew-order positions, 
bits 24 through 31. The system alters the 
user program switch byte accordingly and 
returns control to the instruction follow¬ 
ing the SVC* Error codes do not apply. 


EXTRACT causes the system to put the 
address of byte 0 of the communication 
region in register 1 and return control to 
the calling program. The address of any 
particular word or byte within the region 
is obtained by adding the byte count to 
this value. 


UPSAND - SVC 19 and UPSOR - SVC 20 


The UPSAND and UPSOR supervisor calls 
are used to set or alter the contents of 
the user program switch byte in the user 


For example, to set the user program 
switch byte to all l*s, the following 
coding could be used: 

UPSOR EQU 20 

IC 1,MASK 
SVC UPSCR 


MASK DC X'FE' 

As a result of this UPSOR supervisor 
call, byte 40 of the communications region 
is set to 11111111. This byte is reset to 
all 0's when the system reads a JOB control 
statement initiating another job. 



EXECUTE CHANNEL PROGRAM 


This chapter explains the use of the 
execute channel program (EXCP) supervisor 
call,, SVC 0„ and is accompanied by descrip¬ 
tions of specific control blocks used with 
SVC 0. Factors that affect the operation 
of EXCP, such as device variations, program 
modifications, and the use of the WAIT 
supervisor call, SVC 1„ are also discussed. 
It is recommended that the user obtain a 
symbolic listing of the supervisor and the 
channel scheduler before reading this chap¬ 
ter. The text makes frequent reference to 
labels,, variables, etc.,, that actually 
appear in the listing. 


EXCP LEVEL PROGRAMMING 


At the EXCP level of programming the 
user can work with devices that are not 
supported by the system and can manipulate 
devices in ways not provided by the 
read/write supervisor call routines. For a 
list of supported devices, see IBM 

System/360 _ Model _4^-_Prog rammi ng 

System; Concepts and Fac i liti es, Form 
C28-6810. Routines written and tested at 
the EXCP level may subsequently be incorpo¬ 
rated into the system's read/write level 
through reassembly of the supervisor. 

EXCP level operations make use of both 
system and user routines. System routines 
schedule the requested operation and exe¬ 
cute the privileged instructions required 
for input/output. They also handle some of 
the input/output interruption conditions 
that do not require special attention for a 
particular device. 


Supervisor Call EXCP 


The EXCP supervisor call initiates the 
execution of routines written at the EXCP 
level. Before an EXCP supervisor call is 
issued,, the address of an input/output 
block must be placed into register 1. 

After the EXCP supervisor call has been 
processed,, control is returned to the 
instruction following the EXCP statement. 
At that time,, register 15 contains a code 
that indicates the conditions encountered 
by the statement; the followinq return 
codes may appear in register 15: 


Hexadecimal 

Cod e_ Mean ing 

00 The EXCP supervisor call was 

accepted by the system. 

04 No unit control block exists 

for the requested system 
unit. 

08 The device requested is not 

available for use. 


S uperv isor Call WAIT 


The WAIT supervisor call causes the 
execution of a problem program to be sus¬ 
pended until the operation initiated by a 
previous EXCP statement has been completed. 
Before a WAIT supervisor call is issued, 
the address of an input/output block must 
be placed into register 1. 

After the WAIT supervisor call has been 
processed,, control is returned to the 
instruction following the WAIT statement, 
and the completion of the operation is 
indicated by a 00 hexadecimal code in byte 
0 of word 1 of the input/output block. 

The WAIT supervisor call can be used 
either immediately following an EXCP super¬ 
visor call or at a later point in the 
problem program. For most efficient pro¬ 
gram execution, the WAIT statement should 
be placed immediately preceding the portion 
of the program that uses the results of the 
EXCP operation associated with the speci¬ 
fied input/output block. This placement of 
the WAIT statement allows processing, not 
dependent upon that EXCP operation,, to be 
done while the EXCP operation is in pro¬ 
gress. 


REQUIREMENTS 


To execute an operation at the EXCP 
level, the user should provide: 

• Channel command words or device¬ 
dependent routines to initialize these 
words. 

• Device-dependent interruption and error 
recovery routines. 

• One or more input/output blocks (IOBs). 
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Channel Command Words 


A channel command word (CCW) specifies a 
command to be executed and, for commands 
initiating data transfer,, the area to or 
from which data is to be transferred. 


Channel command words executed by means 
of EXCP must be on double-word boundaries. 
CCWs may be constructed before the EXCP 
supervisor call is issued and a pointer to 
the word list must be present in the 
input/output block (ICB)„ or the words may 
be constructed or updated by including an 
initialization section in the device 
routine. 


Descriptions of the CCWs required for 
the various input/output devices can be 
found in publications that describe device 
functions. These publications are listed 
in the IBM System/3 60: Bib l iog raphy, Form 
A22-6822 (subject codes 03 through 09). 
Additional information regarding the format 
of CCWs is contained in the publication IB M 
System/360: Principles cf Operation „ Form 
A22-6821. 


Input/Output Bloc k 


The input/output block (IOB), which con¬ 
sists of the first six words of a request 
control block CRCB), is used for communi¬ 
cation between the user's program and the 
system. At the EXCP level, the IOE is 
usually used in place of an RCB. However,, 
although the system requires only the 
information contained in the IOB ( , the user 
can write a program that uses all of the 
fields contained in an RCB. 


When an IOB or RCE is created, it must 
be aligned on a full word boundary. All 
fields not supplied with information by the 
user's program must be defined as hexadeci¬ 
mal zeros. 


The format of the IOB is shown in Figure 
5. Its fields are explained below. The 
format of the RCB is shown later in the 
chapter. 


Device Routine 


Word Byte Des c ription 

0 0 System unit index, supplied by 

programmer. (See the system 
unit index table. Table 7.) 


A device routine provides control over 
input/output operations during channel pro¬ 
gram execution. Device routines can be 
used to examine the status of input/output 
operations and determine the actions to be 
taken for various conditions. 


If bytes 5 through 7 of the input/output 
block, the CCW list pointer, contain zero, 
the system will first enter the device 
routine to set up the CCW list. The 
routine is entered again for interruption 
analysis and error recovery, after execu¬ 
tion of the channel commands. 


Device routines are executed in the 
supervisor state, but must not contain any 
supervisor calls or privileged instruc¬ 
tions, Furthermore, a device routine can¬ 
not be interrupted except for machine check 
and certain types of program check. Device 
routines also must net alter the contents 
of registers 1 and 14. These registers are 
used for communication between the device 
routine and the system. Detailed informa¬ 
tion about device routines is contained in 
the section "Device Routine Requirements." 


0 

1 


1 


2 


1-3 Device routine address, sup¬ 

plied by programmer. 

4 Postrequest flag indicating in 

hexadecimal code whether the 
block currently is active, 
supplied by the system. 

00 - no operation pending 
01 - operation in progress 

5-7 Address of channel command 

list, supplied by the pro¬ 
grammer. 

8 Reserved for system use. 


2,3 9-15 Last seven bytes of channel 

status word, supplied by the 
system at interruption time. 


4 16-19 Sense information, supplied by 

the system when a unit check 
condition occurs. 


5 20-23 Four EBCDIC characters to be 

used by the system to locate 
an error recovery program in 
the phase library. This is 
an optional field supplied 
by the programmer. 
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Table 7. System Unit Index Values 


When the EXCP supervisor call is issued, 
register 1 must contain the address of an 
input/output block. The system examines 
the blcck to determine whether it contains 
a valid system unit index value and the 
addresses of a device routine and channel 
program. 


If the index value specifies a system 
unit for which no unit control block (UCB) 
exists, control returns with a 04 hexadeci¬ 
mal code in register 15. If the index 
refers to a device that is net operational, 
control returns with a 08 hexadecimal code 
in register 15. In either case, the system 
treats the requested operation as complet¬ 
ed- 


If the index value is valid but the 
requested channel facilities are busy, the 
system queues the request and returns con¬ 
trol to the user. If the EXCP is followed 
by a WAIT supervisor call, SVC 1, the 
system delays further execution until the 
EXCP operation is completed. 


When the required channel facilities are 
available, the system examines the IOE for 
a channel program address. 


If an address is present, the system 
starts execution of the channel program. 


Word 


0 


1 


2 


3 


4 


5 


r- T ---1 


0 

System Unit Index 

i 

1- 

1-3 

Device Routine Address 

4 

T 

l 

5-7 


Postrequest 

1 


Channel Program Address 

Flag 

1 

_ i 


- 

8 

T 

1 

9-15 


reserved 

1 

Last 

seven bytes of Channel Status Word 


i--j i 

i i 

y.--—-1 

|16-19 I 

j Sense Data | 

h--— — 

|20-23 | 

j Name of interruption analysis program to be leaded j 

L_.____J 


r 

~T“ 

. 1 

—T“ 

_ « .... — «' «>' i 

i 

|System 

1 

Hexadecimal 

1 

Decimal 


| Unit 

1 

Code 

1 

Code 


L 

1 


1- 



r 

T 


T 



j SYSAB1 

1 

01 

1 

1 


|SYSAB2 

1 

02 

1 

2 


j SYSREL 

1 

03 

1 

3 


j SYSLOG 

1 

04 

1 

4 


|SYSRDR 

1 

05 

1 

5 


| SYSIPT 

1 

06 

1 

6 


|SYSLST 

1 

07 

1 

7 


j SYSOPT 

1 

08 

1 

8 


j SYSPCH 

1 

09 

1 

9 


|SYSPSD 


0A 

1 

10 


j SYSDMY 

1 

0B 

1 

11 


j SYSUAS 

1 

OC 

! 

12 


i 

1 

0D 

1 

13 


reserved 

0E 

1 

14 


i 

1 

OF 

1 

15 


jSYSOOO 

1 

10 

1 

16 


ISYS001 

1 

11 

1 

17 


j SYS002 

1 • 

1 

1 

1 

12 

1 

1 

1 

18 


1 

1 

| SYS009 

1 

1 

1 

19 

1 

1 

1 

25 


|SYS010 

1 • 

1 

1 

i 

1A 

1 

1 

l 

26 


1 

1 • 

j SYS015 

i 

1 

1 

IF 

1 

1 

31 


j SYS016 

1 

20 

1 

32 


|SYS017 

1 • 

1 

1 

1 

21 

1 

1 

| 

33 


1 

1 • 

| SYS200 

I 

1 

1 

D8 

1 

1 

1 

216 


L_ _ 





_j 


Figure 5. Input/Output Block (IOB) Format 
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If there is no channel program address, 
the system places the address of the UCE 
associated with system unit in reqister 1* 
the system return address in register 14* 
and enters the device routine. When the 
device routine is ready to return control 
to the system* it branches to the address 
in register 14,. The addresses in registers 
1 and 14 must be unchanged when the system 
regains control. The device routine can 
determine cause of entry by examining byte 
0* word 3 of the UCB. When the routine is 
entered to prepare a channel program* the 
byte contains 00, 

The device routine prepares the channel 
program and places its address into the 
IOB- It also must identify the type of 
operation being requested by putting a 
return code in register 15. 

Operation/return codes are explained below. 

Code Meaning 

00 The operation is completed and 

no input/output operation is 
required. For example, a 
repositioning request may 
have been given which the 
device routine has analyzed 
and determined to be unneces¬ 
sary* i.e.* the device was 
already in the requested 
position. 

04 An event type request (non-data 

transmitting which does not 
make the subchannel busy). 

08 An activity type request (makes 

the subchannel busy). 


Execution now proceeds as it would if 
the channel program had been prepared in 
advance. The system commences execution. 

If a channel status word is stored as a 
result of the system's execution of the 
Start Input/Cutput (SIO) command, the 
device routine is entered exactly as on an 
input/output interruption indicating an 
etror condition or a device end (result of 
an immediate instruction). Refer to Table 
8 for the condition that will cause this. 

If no CSW was stored as a tesult of the 
SIO* control returns, if WAIT is not in 
effect, to the user's main program (not to 
the device routine) until there is an 
input/output interruption. 


INTERRUPTION PROCESSING 


Execution of an EXCP request may gener¬ 
ate one or more input/cutput interruptions. 
When an interruption occurs* the system 
scans the channel status word to determine 
the cause. Some conditions, such as chan¬ 
nel end not accompanied by device end, are 
handled entirely by the system. 

The system reenters the device routine 
if the"interruption is one of the following 
types: 

Type U CB Requ est Flag 
Device End 04 

Program Controlled 08 


0C A transient routine is request¬ 
ed. 

After the device routine enters the 
operation/return code, it returns control 
to the system by branching to the address 
in register 14. 


Attention 0C 

As before, on entry to the routine* 
register 1 contains the address of the UCB* 
and register 14 contains the system return 
address. The device routine examines the 
UCB request flag* byte 0* word 3* of the 


Table 8* Conditions Causing a Device Routine to be Entered 


Condition 

"T- 

| When 

i 

CSW is stored at SIC 

.,. 

At Input/Output 

. . .. 

Device End 

T 

1 

Yes 

r —— 

Yes 

Unit Check 

1 

Yes 2 

Yes 

Unit Exception 

1 

NO 

Yes 

Incorrect Length 


No | 

Yes 

Channel Data Check 


No ! 

Yes 

Chaining Check 

1 

NO | 

Yes 

Busy and Status Modifier 

1 

NO j 

Yes 3 


h 


^All conditions at input/output interruption are accompanied by device end. 

2 When the command address is nonzero (broken chain). 

3 When the sense data contains '40' in byte 0 (intervention required), the device 
routine is not entered. 
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UCB to determine cause of entry. Bytes 1 
through 3 of word 3 contain the address of 
the IOE associated with the operation that 
caused the interruption. The system stores 
the channel status word in words 2 and 3 of 
the IOB. 

If the UCB request flag contains 04, 
then byte 0, word 2,, of the ICB will 
contain one of the following codes: 

Code Meaning 

00 Device end and no error 
04 Unit exception 

08 Condition other than unit exception 

If a unit check condition is present in 
the CSW, the system stores sense data from 
the channel and unit into word 4 of the 
IOB. 

A device routine initiates error recov¬ 
ery operations, when necessary, in the same 
manner as an initial request. It places a 
04 or 08 return code into register 15 and 
branches to the address in register 14, As 
before,, a 00 return code tells the system 
the operation is finished. The system does 
not permit other requests to disturb a 
volume while error recovery procedures are 
in progress. 

The device routine may keep a special¬ 
ized interruption analysis and error recov¬ 
ery program in the phase library for use 
when needed. The device routine instructs 
the system to load and enter such a program 
by putting a 0C return code into register 
15 and branching to the address in register 
14, Word 5 of the IOE must contain the 
name of the desired program. 

The program name is specified in the IOB 
as four EBCDIC characters. The name must 
be entered in the directory of the phase 
library in the form xxxx , representing 
four EECDIC characters followed by four 
blanks. 

The program is loaded into the transient 
area of main storage. The system treats it 
as a logical extension of the device rou¬ 
tine. The program operates in the supervi¬ 
sor state, but can issue neither supervisor 
calls ncr privileged instructions. It uses 
the same return codes as a device routine 
and returns to the system through the 
address in register 14. This address and 
the unit control block address in register 
1 must be unchanged. 

A program-controlled interruption dif¬ 
fers from a device-end interruption in its 
use of return codes. If,, after a program 
controlled interruption, the device routine 
returns to the system with a nonzero return 


code in register 15, the system assumes 
that the operation is still in progress. 
If the register contains a 00 code, the 
system treats the operation as completed. 
Because the operation may be completed only 
through use of a Balt I/O instruction, and 
because a PCI interruption is not flagged 
if PCI occurs with unit check or device 
end, it is essential that a 00 return code 
be used only when the operation is actually 
completed. When the system finds a 00 
return code it resets the postrequest flag 
in the IOE to 00, returns ccntrol to the 
user's main program (not the device 
routine), and treats the channel and device 
as free. 

An attention interruption is handled in 
the same manner as a device-end interrup¬ 
tion. 


INCORPORATING DEVICE ROUTINES INTO THE 
SYSTEM 


To incorporate a device routine for a 
new input/output device the user must 
change several items in the system as 
initially distributed. In addition,, the 
system requires that each new device rou¬ 
tine provide control informiation that will 
allow the system to operate as it does when 
it uses the device routines included as 
part of the system. These requirements are 
described separately in the following text. 

The text also describes, in general 
terms, the device routines provided as part 
of the system. This description illus¬ 
trates which type of processing can or 
should be done by a device routine. Device 
routines use information provided by the 
system in various control blocks and reg¬ 
isters; this information is also explained 
in the text. 


Change s f or New Devic es 


To allow for input/output devices not 
provided for in the system,, the user must 
make changes to various parts of the system 
and may be required to add a unit control 
block for each new device to be used. 

Mo dif yi ng t he System Communicat ion _R egion: 

To accommodate the routines, ccntrol 
blocks, and various other entries required 
for a new input/output device, several 
entries in the system communication region 
(SCOMRG) must be changed to indicate the 
additions to the system. 
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ST RGO,UCPPT(RUCB) 


Modifying the Initialization Device Table : 
To indicate that a new input/output device 
has been made available to the system* the 
system programmer must change the initiali- 
zation device table to include the device 
specification of the new device and some 
additional control information. The format 
of this table* as it appears in the dis¬ 
tributed version of the system* is shown in 
Figure 11 (Appendix C)« 

Number of Devic e Rou t ines : The total num¬ 
ber of device routines in the system must 
be increased to include the device 
routine(s) added to handle the new 
input/output device. To indicate this 
increase* the user must change the value of 
the supervisor EQU instruction labeled 
NDEV. Supervisor EQU instructions are des¬ 
cribed in the chapter entitled M System 
Construction and Editing"* under the head¬ 
ing "Assembler Instructions in the Supervi¬ 
sor, " 

Changes _ to Assembl er Instruc tions: Depend¬ 
ing upon installation requirements* the 
supervisor assembler instructions labeled 
NCCW, NFCB, NSUT and NUCB may require 
modification when a new device type is 
added to the system, A description of 
these instructions can be found in the 
chapter entitled "System Construction and 
Editing" under the heading "Assembler 
Instructions in the Supervisor." 


Before this instruction is issued, the 
current position (e.g., block count) is 
placed into register RGO, and an indexing 
value to specify which unit control block 
is to receive the code is placed into 
register RUCB,. 

If the user wants to maintain error 
counts, as is dene by device routines 
provided by the system, he must place the 
error counts into the UCB. The following 
list shows the symbolic references used for 
the error counts that have been provided 
for in the UCB. 

Symbolic 

Reference Ty pe o f E r ror Co unt 
UCPND Permanent no-data-transmitted 

errors 

UCPRE Permanent read errors 

UCPWE Permanent write errors 

UCRND Recovered no-data-transmitted 

errors 

UCRRE Read errors that have been cor¬ 

rected by recovery procedures 

UCRWE Write errors that have been 

corrected by recovery proce¬ 
dures 


DEVICE ROUTINE - CONTROL BLOCK 
RELATIONSHIPS 


To permit device routines written by the 
user to operate under system control* the 
device routines must place certain informa¬ 
tion into control blocks so that it is 
available for use by the system. Some of 
the information is always required, while 
other information is required only when the 
user plans to design problem programs that 
will request input/output operations on 
these devices at the read/write level. For 
example* the current block count field of 
the file control block (FCE) must be main¬ 
tained if a NOTE supervisor call (SVC 7) is 
to be used in the user’s problem program. 

Unit Control Bl o ck : Depending upon the 
type of device and the processing to be 
done by the device routine, it may be 
necessary to place the current position 
(UCPPT) of the device into the UCB. The 
current position of a device is defined for 
disk storage devices as the cylinder and 
head numbers; for card and tape devices as 
the block count. The following statement* 
which is used in a device routine included 
in the system* illustrates how to place the 
current position of the device into the 
UCB: 


File Cont rol Blocks: Depending upon wheth¬ 
er the NOTE statement is to be used, the 
device routine may have to place the cur¬ 
rent block count (FCECT) into the file 
control block. The current block count 
must be in the file control block if the 
NOTE statement is to be used. The follow¬ 
ing statement, which is used in a device 
routine included in the system, illustrates 
the placement of the block count into the 
file control block: 

ST RG6,FCBCT(RFCE) 

Before this instruction is issued, the 
count is placed into register RG6 and an 
indexing value, to specify which file con¬ 
trol block is to receive the value, is 
placed into register RFCB. 

In put/O utput Blocks: If the device routine 
requires that a channel command word list 
be executed by the system, the routine must 
place the address cf that list (IOCCW) into 
the input/output block. The list address 
can be placed into the input/output block 
as described below for the current block 
count in the request control block (RCB). 

R equest Control Blocks: If the user elects ^ 
to provide an entire request control block, 
rather than an input/output block, the 
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device routine he writes must handle all 
fields that follow the input/output block. 
The descriptions of fields given below 
refer only to the fields that are used by 
the device routines provided as part of the 
system. The manner in which those fields 
are used by device routines is given to 
illustrate which extra fields might be 
desirable for use with a new type of 
input/output device. 


The device routine places the return 
code (IORCD) into the request control 
block. The hexadecimal codes that the 
device routine places into the request 
control block are: 


Hexadecimal 

Code Meaning 

00 The operation was completed 

successfully. 

04 An end-of-file or end-of- 

volume condition has 
occurred. 

08 A permanent read error has 

been detected, or a per¬ 
manent write error has 
been detected. 

0C A permanent no-data- 

transmitted error has keen 
detected. 

10 An illegal request has been 

made. 

14 An incorrect-length error 

has occurred. 

The following statement is used to place 
the decimal code into the request control 
block: 

STC RG 6,IORCD(RIOB) 

Before this instruction is issued, the 
code is placed into register RG6, and an 
indexing value to specify which request 
control block is to receive the return code 
is placed into register RICB. 

After a read or write operation has been 
completed,, the device routine places the 
current block count (I0BCT) into the 
request control block. The following 
statement is used to place the current 
block count into the request control block: 

ST RG0„IOBCT(RIOB) 

Before this instruction is issued, the 
count is placed into RG0,and an indexing 
value to specify which request control 
block is to receive the value is placed 
into register RIOB. 


If the device routine controls certain 
multiple-step operations, the routine main¬ 
tains the operation counter (IOOPC) in the 
request control block. To place a value 
into the operation counter, the following 
statement is used: 


STC RG7,ICCPC(RIOE) 


Before this instruction is issued, the 
number to be placed into the operation 
counter is placed into register RG7, and an 
indexing value to specify which request 
control block is to receive the number is 
placed into register RIOE. 


Two counters (ICCNT1 and IOCNT2) are 
used to maintain counts of the number of 
retries that are made during recovery oper¬ 
ations. If the user wishes, he may use 
these counters for similar purposes or for 
some other purpose required by his device 
routine. 

The device routines included in the 
system use another byte (IOECD) in the 
request control block to contain an error 
recovery code. This code is used only by 
the device routine as a means of identify¬ 
ing the action required when the device 
routine is entered again. The system pro¬ 
grammer may use this byte for any codes 
that he requires in his device routine. 


DEVICE ROUTINE DESIGN 


The design of a device routine for an 
input/output device not provided for in the 
system is determined by the user. When 
designing a device routine, the user need 
only be sure that it satisfies the require¬ 
ments stated earlier. 

Although the user is free to write his 
device routine as he wishes, a general 
diagram of the actions normally done in a 
device routine is shown in Figure 6. This 
diagram is not intended for any specific 
device, but it shows the general approach 
used in the device routines provided as 
part of the programming system. In the 
description of Figure 6 that follows, the 
methods used in device routines provided in 
the system are mentioned to suggest a 
possible method to the system programmer. 
(Numbered blocks in the figure are 
explained in the list following the chart.) 
The information used by the device routines 
is described under "Information Available 
to Device Routines." 
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1* 


***** 

*zz * 

* A2* 


I ENTERED FROM 
I CHANNEL SCHEDULER 


A2 
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INITIALIZATION 

ENTRY 
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*. FOR 

INITIALIZATION 


NO 
*- 


INTERRUPTION 

ENTRY 


B1 *.2 
.♦IS DATA*. 

* TO BE ♦ . NO 
TRANSMITTED .*- 


* YES 


V 3 

*****ci+********* 

* * 

* SET UP * 

♦CHANNEL COMMAND* 

* WORD LIST * 

* * 
***************** 


V 4 

***** 01 ********** 
* * 

* SET CODE 08 * 

* TO REQUEST AN * 

* ACTIVITY * 

* * 
***************** 


V 5 

*+*** c2 ********** 

* OTHER TESTS * 
*FOR PARTICULAR * 

* DEVICE * 

* * 
***************** 


D2 ♦ . 6 

. * AN *. 
.INPUT/OUTPUT*. NO 

♦.OPERATION IS .*- 

♦.REQUIRED .♦ 


***** 22 ********** 
* * 

* SET CODE 04 * 

-* TO REQUEST * 

* AN EVENT * 

* * 
***************** 


♦****P2********** 

♦ SET CODE 00 ♦ 

♦ INDICATING * 

♦ OPERATION IS ♦< 

♦ COMPLETED * 

♦ * 
***************** 


B3 *. 8 

.♦ WAS ♦. 

.* OPERATION ♦. NO 
*. SUCCESSFUL .♦- 


♦ . . * 

* YES 


.♦ IS ERROR ♦. YES 

♦RECOVERY BEING.*- 

*.ATTEMPTED.* 


V 9 

*****C4********** 
* * 

♦SET CODE OC TO * 
->*FETCH TRANSIENT* 

* ROUTINE * 

* * 
***************** 


V 11 

***** D 3********** 
* * 

* OTHER ACTIONS * 
♦FOR PARTICULAR * 

* DEVICE * 

* * 
***************** 


V 

. ♦. 

E3 ♦. 

.♦ ♦ . 

NO .* MORE ♦. 

<-♦INPUT/OUTPUT IS* 

♦.REQUIRED .♦ 


*****F3********** 

♦ SET CODE 04 * 

♦ OR 08 TO * 

♦ REQUEST AN *- 
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***************** 


****G4+**+**+** 

* * 

* RETURN * 

* * 
*************** 


Figure 6. General Flow of a Device Routine 
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Explanations o f Logic B loc ks: 

1. Cause-of-entry can be determined by 
checking the code in byte 12 of the 
UCE• 

2. If the device is being addressed at 
the read/write level, the device rou¬ 
tine can determine which operation has 
been requested by checking the code in 
byte 32 of the RCB. 

3. If data is to be transmitted, the 
device routine must set up a channel 
command word list- Depending upon the 
device,, the channel command word list 
may consist of one or more CCWs. 

The number of channel command word 
lists for any device depends upon the 
operations that the device routine 
must initiate. Descriptions of the 
CCWs required for the various opera¬ 
tions of input/output devices are 
given in publications that describe 
device functions. These publications 
are listed in the IBM Syst em /36 0 Bi b¬ 
liog raphy , Form £22-6822 (subject 
codes 03-09). Additional information 
regarding the format of channel com¬ 
mand words is contained in the publi¬ 
cation IBM System/360 Principles of 
Operation , Form £22-6821. 

4. The device routine places a code into 
register 15 if the chain of commands 
contains either a data transmission 
request or an event request requiring 
the positioning of a device oefore a 
read or write operation,, e.g., a seek 
request on a disk. (The actual 
read/write CCW will be issued through 
an activity exit upon successful com¬ 
pletion of the event.) 

5. Byte 32 of the RCB is tested. 

6. If the check of byte 32 indicates that 
no data is to be transmitted but an 
input/output operation is required 
(e.g.„ a rewind operation), the device 
routine must set up a channel command 
word list. After preparation of the 
list, the routine places an event code 
into register 15 and returns control 
to the system- 

7. If the check of byte 32 indicates that 
no input/output operation is required, 
the device routine places a completion 
code into register 15- If the origi¬ 
nal request was invalid, the device 
routine must,, additionally, set up an 
error code in the RCE. 

8. When byte 12 of the UCB indicates that 
the device routine was entered for 
interruption processing, the device 


routine must examine byte 8 of the IOB 
to determine whether a previously ini¬ 
tiated operation was performed without 
error. 

9• En tered via block (8) : 

If an error has occurred and if the 
error recovery routine is transient, 
the device routine places a code into 
register 15 requesting the loading of 
the error recovery routine. If the 
recovery routine gets control when 
loaded, it attempts to recover from 
the error by retrying the operation. 

Entere d v ia block (10): 

If the device routine detects that the 
interruption resulted from a previous¬ 
ly initiated attempt to recover from 
an error, the recovery routine is 
entered to analyze whether the error 
has been corrected. The device rou¬ 
tine must again place a code into 
register 15 requesting the loading of 
the error recovery routine. 

As implied above, the device routine 
must provide an error recovery proce¬ 
dure. The error recovery procedure 
must determine which type of error has 
occurred and then attempt to correct 
it, if possible. A procedure for 
handling errors that cannot be cor¬ 
rected, or that recur when an attempt 
to correct them is made, must also be 
provided. The action taken for the 
various types of errors is determined 
by the user. For example, he may 
decide that a job should be canceled 
if a channel data check has been 
detected, or he may write the proce¬ 
dure so that a return code is issued 
providing the option of canceling or 
continuing — the action taken depend¬ 
ing upon other variables. If an error 
can be corrected by the computer oper¬ 
ator, the user may elect to send a 
message to the operator and specify 
what is required to correct the error. 
To issue such a message, the facility 
of the error message system routine 
called by a FETCH exit from the device 
routine should be used. 

The operations required to retry an 
operation are dictated by the type of 
error and the type of device. In 
general, the procedure is to re¬ 
establish the conditions which existed 
before the action was taken that 
resulted in an error. For example, a 
tape must be repositioned to the 
beginning of a record that could not 
be read correctly; to do this, a 
backspace operation is required- How¬ 
ever, an error occurring while trans¬ 
mitting the read command to the device 
does not require any repositioning. 
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The error recovery procedure must also Register 
place an appropriate return code in Number 

register 15* 1 


C onte nts 

The address of the unit con¬ 
trol block. 


10. Test to determine whether the inter- 2 

ruption resulted from a previously 
initiated error recovery attempt. 


The address of the 

input/output block (or of 
the request control block 
if cne is used). 


11. If no error was detected and if no 
recovery procedure was in progress, 
the device routine checks for other 
conditions that may exist for the 
particular device. Based on these 
checks,, the device routine may have to 
set up a channel command word list to 
complete an input/output request. 


Other actions that the device routine 
would perform at this point would 
include updating pointers, updating 
block counts, and setting program 
flags. After all actions have been 
completed, the device routine places a 
code into register 15 indicating that 
the operation is completed. 


INFORMATION AVAILABLE TO DEVICE ROUTINES 


Before the channel scheduler gives con¬ 
trol to a device routine, the system pro¬ 
vides information for use by the device 
routine. Such information is placed into 
registers or the various control blocks. 


The contents and format of the unit 
control block are shown in Appendix A; 
those for the file control block are shown 
in Appendix B. 


In the descriptions of information avai¬ 
lable to device routines, all fields are 
described, including those which the device 
routine must handle as described previously 
under "Device Routine Requirements.” 


I nformation in the Reg iste rs 


The system places the following informa¬ 
tion into the indicated registers before 
control is given to the device routine: 


10 The address of the first 

byte in the constant pool. 


I nformation in the Request Con t rol Block 


In the description of the information 
that the system places into the request 
control block, those entries marked with 
one asterisk must be provided by the device 
routine, except for words 6 through 9. The 
contents of these words must be provided 
only if read/write level operations are to 
be performed. These words are used primar¬ 
ily for communication between device rou¬ 
tines and read/write routines. 


Those entries marked with two asterisks 
are not available until the routine has 
been entered for interruption processing. 
Entries not marked are available when the 
device routine is entered for initializa¬ 
tion processing. They remain available 
when the device routine is entered later 
for interruption processing. The informa¬ 
tion in the request ccntrcl block (see 
Figure 7) is as follows: 


W ord B yte Inscription 

0 0 System unit index number of 

the system unit to be used 
in the input/output opera¬ 
tion. This value can be 
determined from Table 7. 


0 1-3 


1 4 


*1 5-7 


2 8 


Address of the device depen¬ 
dent routine to be used to 
set up the channel commands 
and analyze interruptions. 

Postrequest flag indicating 
whether the block currently 
is active: 

00 = No operation pending 
01 = Operation in progress 

Address of the first channel 
command required to execute 
the operation. 

Reserved for system use. 


**2,3 9-15 Last seven bytes of channel 
status word, stored when an 
operation is started and 
when an interruption 

occurs. 
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Word 

Byte 

Description 

Word 

Byte 

Description 

** 4 

16-19 

Sense information, stored 

*8 

32 

Request code identifying the 



when unit check condition 



type of operation to be set 



occurs. 



up by a device routine. 

01 = Write 

*5 

20-23 

Name of program to be loaded 



02 = Read 



from the phase library when 



07 = Rewind 



necessary for interruption 



OF = Rewind and Unload 



analysis. 



IF = Write End of File 

3F = Point 

*6 

24 

Error recovery code identify¬ 






ing a type of error. 

*8 

33-35 

Address of buffer to be used 






for transmission. 

*6 

25-27 

Counters used to keep track 






of number of attempts made 

*9 

36 

Incorrect length control byte 



to recover an error. 



20 = Suppress incorrect 






length indication 

*7 

28 

Return code 



00 = Check for incorrect 



00 = Operation completed 

04 = End cf file or end of 



length 



volume 

*9 

37 

Reserved 



08 = Permanent transmission 






error 

*9 

38-39 

Number of bytes to be trans¬ 



0C = No data transmitted 

10 = Invalid request 

14 = Incorrect length 



mitted (see note). 



Note: 

Following completion of an 

*7 

29-31 

Address of file control block 

input/cutput 

operation, the contents of 



being used for this opera¬ 

word 

9 are replaced, by the device routine. 



tion. 

with 

the updated data set position block 


count. 
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Word 


0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


System Unit 
Index Number 


1-3 

Address of Device Dependent Routine 


Postrequest 

Flag 


5-7* 

Address of First Channel Command 


h~ 

8 


Reserved 


9-15** 

Last Seven Eytes of Channel Status Word 


16-19** 

Sense Information 


b 


20-23* 

Name of Program tc be Loaded from Phase Library 


b 


24* 

Error 

Recovery Code 


b 


25-27 

Counters 


28* 

Return Code 


29-31* 

Address of File Control Block 


32* 

Request Code 


33-35* 

Address of Buffer for Transmission 


b 


36* 

Incorrect 
Length 
Control Byte 


37* 

Reserved 


38-39 

Number of Bytes to be Transmitted 


_i._x_ 

*Must be provided by device routine, 

**Not available until after entry for interruption processing. 


Figure 7. 


Request Control Block 
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APPENDIX A. UNIT CONTROL BLOCK 


Word 


>- 


h 


6-7 


0 - 1 * 

Physical Device Address 


Relative chain 
Pointer 


8-11 


12 

Request flag 
for device 
routine 


h 


16-19* 


h 


20-23* 


h 


24-31* 


I 

|Channel 
| Scheduler 
| Flags 


2 * 

Device Mode 


"T- 

| 3* 

I 

| Type of Unit 


Job Control 
Flags 


| Read/Write Flags 


I 


IOB address for attention interruptions 


]l3-15 

I 

|IOB address for current input/output operation 


Device Position 


Address of CCW area 


Device Routine Counters 


♦Must be provided by device routine or user 


Figure 8. Unit Control Block (UCB) Format 


Unit Contro l Block Fields 


Fields in the unit control block are 
defined below- Entries marked with an 
asterisk must be provided by a device 
routine or the user. 


Word Byte Description 

*0 0*1 Physical device address 

*0 2 Device mode 

01 = Burst mode 

02 = Overrunable byte mode 

03 = Non-overrunable cyte mode 


*0 3 Type of unit 

10 = 1052 Console Printer- 
Keyboard 

20 - 2501 Card Reader 

21 = 2540 Card Reader 

22 = 2520 Read-Punch 

23 = 1442 Read-Punch 
28 = 2520P Card Punch 


Word B yt e 


Des cr iptio n 

29 = 2540P Card Punch 
2A = 1442P Card Punch 

30 = 1403 Printer 

31 = 1403M7 Printer 

32 = 1443 Printer 

33 = 1443S Printer 

40 = 2400 Magnetic Tape Unit 

41 = 2400H Magnetic Tape Unit 

42 = 2400D Magnetic Tape Unit 

48 = 2400T7 Magnetic Tape 

Unit 

49 = 2400T7C Magnetic Tape 

Unit 

50 = Single Disk Storage Drive 

51 = 2311 Disk Storage Drive 


1 4 Relative chain pointer* point¬ 

ing to the next UCB in either 
an acitvity* event* or 
transient routine chain. 
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Word Byte D escription 
1 5 Channel scheduler flags 

80 = Intervention request 
processed by device 
routine 

40 = Channel end expected 
20 = Device end received 
10 = Retry operation 
08 = Device not ready 
04 = Attention waiting 
02 = Event in progress 
01 = Device busy 

1 6 Job control flags 

80 = Device down 
40 = System standard assign¬ 
ment 

20 = Job control assigned 
10 = Programmer assigned 
08 = Assigned this step 
04 = The volume cannot be 
dismounted 


1 7 Read/Write flags 

80 = System multiple operation 
40 = Error message to be 
requested 

20 = End of volume (EOV) 

10 = System request 
08 = Multiple operation 
02 = Volume label present 
01 = Volume has been mounted 


Wor d Byt e Descriptio n 

2 8-11 Address of input/output block 

used when an attention 
interruption occurs. 
(Applicable only to those 
devices that can signal 
attention.) 

3 12 Request flag for device routine 

00 = Setup 

04 = Device-end interruption 
08 = Attention interruption 
0C = Program controlled 
interruption 

3 13-15 Input/output block address 

associated with this opera¬ 
tion 

*4 16-19 Current physical position of 

the device in terms of the 
cylinder and head positions 
for direct access devices and 
block count for sequential 
devices. 

*5 20-23 Address of channel command 

word area associated with 
the device. 

*6,7 24-31 Permanent and temporary error 
counters set and used by the 
system's device routines. 
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APPENDIX B. FILE CONTROL BLOCK 


Word 


0 


1 


2 


3 


4 


5 


6 


7 


8 


Figure 


r- 

|2 

I 

| Reserved 


“T- 

|3 

I 

|Number of blocks per 
I track 


Flag Byte 


| Flag Byte 


4-7* 

X 

X 

Block Count 

X 

i 

00 


jlO-11 

i 


Logical 

Record Length 

1 

| Reserved 

... . ... .L.. . .. . . . 


12-15 

T 

Seek and search address 

T 



16 

Block 

Number 


h 


11 ? 

I 

| Length of 
| key area 
| (2311 only) 

-X_ 


|18-19 

I 

| Maximum number of bytes per block 


20-23 

Displacement of first 
block of a directoried 
data set member 


h 




24-27 

Device address of first block of the data set 
28-31 

Number of last block written 

32-35 

Number of blocks reserved for the data set 

^- 

| *Must be provided by device routine 

L- 


9. File Control Block Format (Disk) 
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Word 


0 


1 


2 

3 


4 

5 

6 


7-8 


~ T - 

|2 

I 

| Reserved 


_ T - 

|3 

I 

|Set Mode Bits 


Flag Byte 


ii 

i 

(Flag Byte 


4-7 


Block Count 


h 


h 


8-9 

Logical Record Length 


|10-15 


Data Set Expiration Date 


T 17 


| Reserved 


Jl8-19 

I 

I 

|Maximum number of bytes per block 


16 

Block 

Number 


h 


20-21 

File Count 


b 


|22-27* 

I 

I 


Volume Identification 


h 


28-35 


Data Set Name 


♦Must be provided by device routine 


Figure 10. File Control Block Format (Tape 

and Card) 


File Control Block Fields 

Word 

Byte 

Description 

Fields in the file control block for 
disk volumes are defined below. The entry 
marked with an asterisk must be provided by 

0 

2 

08 = Deleted 

04 = Output data set 

02 = Data set formatted 

Reserved 

a device routine. 

0 

3 

Number of blocks per track 

Word Byte Description 

♦1 

4-7 

Current block count 

0 0 Flag Byte 

80 = Standard unit 

40 = Fresh data set 

2 

8,9 

Logical record length 

20 = Update VTOC 

10 = Labeled 

2 

10,11 

Reserved 

08 = Header checked 

04 = Modification 

3 

12-15 

Seek and search address for 

02 = Disconnected 

01 = Open 

4 

16 

the current operation 

Number of block being proc¬ 

0 1 Flag Byte 

80 = Control character 

40 = ASA control characters 

20 = Write check 

4 

17 

essed 

Number of bytes in key area 

10 = Ignore (dummy data set) 



(2311 only) 
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Word Byte 
4 ^ 18-19 


De scription 

Maximum number of bytes per 
block 


Word 

0 


Byte 


1 


5 20-23 Displacement (number of blocks) 

of first block of member in 
a directoried data set. If 
the data set associated 
with the RCB is not 

directoried, these bytes 0 3 

contain zeros. 


De scriptio n 
Flag byte 

80 = Control character 
40 = ASA control characters 
10 = Ignore (dummy data set) 
08 = Deleted 
04 = Output data set 


Mode of tape operation (not 
used for card data sets). 


6 24-27 Address of the first block 

in the data set 

7 28-31 Number of the last block 

written 


8 32-35 Number of blocks reserved for 

this data set 


2,3 10-15 Expiration date of data set 

4 17 Reserved 


5 20,21 Current file count, including 

trailer label file marks 


*5,6 22-27 Volume identification in EBCDIC 


Fields in a file control block for tape 

and card units are the same as for direct 7,8 28-35 Data set name in EBCDIC (not 

access devices, except as follows: used for card data sets). 
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APP EN DIX C._INIT IAL I ZAT ION D EVI CE, CCW, AND JOB CONTROL DEVICE TABL ES 


Device 

~ “- ~ T 

1 

Specification)Device Type 

T 

1 

Code|No. 

“ T 

1 

of CCWs|Device 

j _ _ 

- T T 

|ccw |Pointer to 

Mode|Relocation|CCW List 

X X 

1052*- 

. _ .. |.... 

j 10 

j 

f 0 6 

- ■“ 1 .. ■ ■ 

| 33 

| 01 
j 

T 

j CONCCW 

1 . 

2501 

| 20 

j _ . . 

j 02 
| . 

_ j . _ ... 

j 02 

. .. j .... 

i oo 

— t 

1RD1CCW 

. X „ . . .._ 

2540 

i 21 

j 02 

j 03 

_ _ 

_ 1 - - 

i oo 

T 

|RC1CCW 

_ 4 . .. . _ 

2520 

. . _ j _ . _ 

j 22 

1 

j 02 

j 

| 02 

... _-j_ . 

_ 1 .. 

i oo 

t-“ 

j RP1CCW 

1 

1442 

T 

| 23 
. j 

j 02 

j- 

| 02 

j. 

I _ 

i oo 

T 

j RP2CCW 

| ___ 

2520P 

| 28 

i 02 

i 02 

.1 . 

| 00 

|RD2CCW 
j 

2540P 

. | 

j 29 

.. .. .. ...j. . ... 

113 

| 03 
j 

1 

i oo 

j PC2CCW 

1442P 

2A 

j 

j 02 

j 02 

j. 

j 00 

| 

j RP3CCW 

_j _ ._ _ 

1403 

j 30 

.. _ .. . | ....__ „ _... .. _ 

j 02 

j 03 

4 

| 00 

j PT1CCW 

j 

1403M7 

| 31 

j 

|o2 

| 03 

j 

I 

i oo 

j PT2CCW 

. . | . 

1443 

32 

| 02 

j 03 

. j . _ 

| 00 

T 

|PT3CCW 

. .. | .. . . 

1443S 

| 

j 33 

-j. 

| 02 

| 03 

_ . j 

1 

j 00 

1 

|PT4CCW 

. . 4 . . 

2400 

j 40 

jo2 

j. _ 

i oi 

1 

too 

1 

|TPICCW 
- | 

2400H 

| 

i 4i 

j - - _ - - 

j 02 

i oi 

....j... 

1 

i oo 

T 

|TP2CCW 

. __ I _ 

2400D 

j 42 

\o2 

. j . 

j 01 

_ . j _ - .. .-. 

i oo 

T 

|TP3CCW 

4 

2400T7 

! 48 

j. 

j 02 

-j- 

i oi 

.. . |_ 

1.- 

i oo 

-j- 

T 

|TP4CCW 

... 4 . .... 

2400T7C 

j 49 

_ _ _ | 

| 02 

i oi 

i oo 

-j- 

|TP5CCW 

4 

SDSD 

j 50 

.. . ..| . ... .... . 

jo 5 

i oi 

..|... 

j 01 

... j ... __ _ 

|DK1CCW 

1316 2 

1 51 

1 06 

j 01 

i oi 

_ | . .. 

|DK2CCW 


^-Location TBLORG 
^Location TBLEND 


Figure 11. Initialization Device Table 
Initialization De v ice Ta b le Fie lds 


Device Specification 

Contains an abbreviated device name. 
The name can consist of a maximum of 
eight characters. 


Device Type code 

A 2-byte code designating a device 
type. In selecting a code, the user 
must be sure that the first digit of 
the code is different from the first 
digit of existing device type codes. 
The system uses the first digit of the 


code as a pointer to the device rou¬ 
tine to be used for a particular type 
of device. 


Number of Channel Command Words 

The number of CCWs required varies 
according to device. 

Device Mode 

Specifies the mode of the device as 
either burst mode (01), overrunnable 
byte mode (02), or nonoverrunable byte 
mode (03). A nonzero in the four 
high-order bits (e.g., 33 for the 

1052) indicates an attention type 
device. 
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CCW Relocation Pointer to the CCW List 

a 01 indicates relocatability. The Symbolic pointer to the device's CCW 

entry for this field, either 00 or 01, list, 

varies according to the channel com¬ 
mand list required for the specific 
device. 


r 







l 

i 




DEVICE TYPE 

DEVICE TYPE CODE 

i 

. CTYPTB DC 

C'1052 

• 

1052 

CONSOLE 

10 

i 


DC 

X'10' 





i 


DC 

C'2501 

« 

2501 

READER 

20 

i 


DC 

X * 20' 





i 


DC 

C'2540 

* 

2540 

READER 

21 

i 


DC 

X' 21' 





i 


DC 

C' 2520 

• 

2520 

READ-PUNCH 

22 

i 


DC 

X' 22' 





i 


DC 

C' 1442 

i 

1442 

READ-PUNCH 

23 

i 


DC 

X' 23' 





i 


DC 

C'2523P 

• 

2520 

PUNCH 

28 

i 


DC 

X' 28' 





i 


DC 

C'2540P 

» 

2540 

PUNCH 

29 

i 


DC 

X * 29' 





i 


DC 

C*1442P 

< 

1442 

PUNCH 

2A 

i 


DC 

X' 2A' 





i 


DC 

C'1403 

9 

1403 

PRINTER 

30 

i 


DC 

X' 30' 





i 


DC 

C1403M7 

9 

1403 

PRINTER 

31 

i 


DC 

X' 31' 





i 


DC 

C'1443 

1 

1443 

PRINTER 

32 

i 


DC 

X' 32' 





i 


DC 

C' 1443S 

• 

1443 

PRINTER 

33 

i 


DC 

X* 33* 





i 


DC 

C ' 2400 

• 

2400 

TAPE 

40 

i 


DC 

X' 40' 





i 


DC 

C2400H 

1 

2400 

TAPE 

40 



DC 

X' 41' 





i 


DC 

C' 2400D 

f 

2400 

TAPE 

42 

i 


DC 

X' 42' 





i 


DC 

C2400T7 

• 

2400 

TAPE 

48 

i 


DC 

X' 4 8 ' 





i 


DC 

C'SDSD 

f 

SINGLE DISK STORAGE DRIVE 50 

i 


DC 

X* 50' 





i 


DC 

C * 1316 

1 

1316 

DISK PACK 

51 

i 


DC 

X' 51' 





i 

L 







i 

1 







I 

I Note: In 

this table, all character 

constants consist 

of 7 characters; 

blank characters 

j are used 

following 

the device type 

to fill out the constant. 

i 

L 


_ 


_ 



j 


Figure 12. Job Control Device Table 
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CONCCW 


RD1CCW 

PC1CCW 

PC2CCW 

RD2CCW 

RP1CCW 

RP2CCW 

RP3CCH 

PT1CCW 

PT2CCW 

PT3CCW 

PT4CCW 

TP1CCW 

'TP2CCW 

TP3CCW 

TP4CCW 

TP5CCW 

DK1CCW 

DK2CCW 


Figure 13. 


CCW 

0,0,X' 00* ,0 

1052 

CONSOLE PRINTER 

DC 

X 1 OA000008 1 


ATTENTION CCWS 

DC 

X'20000008* 



CCW 

0,0,X’00',0 



DC 

X'04000000' 


ATTENTION IOB 

DC 

X * 00FFFFEC' 


COMPLEMENT FOR CCW 

DC 

4C' 0' 



CCW 

0,0,X'60'1 

2501 

CARD READER 

CCW 

0,0,X'00* ,0 



CCW 

0,0,X'60',1 

2540 

CARD READER 

CCW 

0,0„X'00',0 



CCW 

0,0,X'60' ,1 

2540 

CARD PUNCH 

DC 

24F'0' 



CCW 

0,0,X*60' ,1 

2520 

CARD PUNCH 

CCW 

0,0,X 1 00*,0 



CCW 

0,0,X* 60 * ,1 

2520 

CARD READ PUNCH 

CCW 

0,0,X'00',0 



CCW 

0,0,X* 60* ,1 

1442- 

“N1 CARD READ PUNCH 

CCW 

0,0,X'00' ,0 



CCW 

0,0,X'60 ', 1 

1442- 

-N2 CARD PUNCH 

CCW 

0,0,X'00',0 



CCW 

0,0,X * 60 *,1 

1403 

PRINTER 

CCW 

3,0,X'00* ,1 



CCW 

0,0,X'60',1 

1407 

PRINTER 

CCW 

3,0,X 1 00' ,1 



CCW 

0,0,X* 60 1 ,1 

1443 

PRINTER 120 POSITIONS 

CCW 

3,0,X* 00 1 ,1 



CCW 

0,0,X’60 * , 1 

1443 

PRINTER 144 POSITIONS 

CCW 

3 f 0,X'00M 



CCW 

0,0,X , 60 , ,1 

2400 

TAPE 800 BPI 

CCW 

0,0,X'00*,0 



CCW 

0,0,X* 60 f ,1 

2400 

TAPE 1600 BPI 

CCW 

0,0,X f 00',0 



CCW 

0,0,X'60' ,1 

2400 

TAPE 9 TRK AND DUAL DENS! 

CCW 

0,0,X'00',0 



CCW 

0,0,X* 60' ,1 

2400 

TAPE 7 TRACK 

CCW 

0,0,X'00' ,0 



CCW 

0,0,X'60 ' , 1 

2400 

TAPE 7 TRACK AND CONVERT 

CCW 

0,0,X'00' ,0 



CCW 

0,0,X* 20', 1 

SINGLE DISK STORAGE DRIVE 

DC 

F * 24' 

RELOCATION FOR *+24 

DC 

F' 5' 



CCW 

0,0,X'20' ,0 



CCW 

0,0,X'00',0 



CCW 

0,0,X'00' ,0 



CCW 

0,0,X'20',6 

2311 

DISK STORAGE DRIVE 

CCW 

0,0,X'60',5 



DC 

X'08FFFFF8' 

RELOCATION FOR *-8 

DC 

F' 0' 



CCW 

0,0,X'00' ,0 



CCW 

0,0,X'00',0 



CCW 

0,0,X'00' ,0 




j 



m 


CCW Table 
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APPENDIX D. SYSTEM MODULES 


I 


Table 9 is a listing of all modules of 
the IBM System/360 Model 44 Programming 
System as initially distributed. The list 
also provides symbolic identifications and 
phase names for each component , where 
applicable. 


Symbolic identifications allow the user 
to associate any card image with the module 
to which it belongs. The 3-character iden¬ 
tification code — four characters for 
FORTRAN modules — is found at the begin¬ 
ning of the serialization field, columns 73 
through 80 of each card image. 

Phase names are applicable to all 
modules that are members of the phase 
library. Phase names do not apply to 
FORTRAN programs that are members of the 
module library. 


Table 9. System Components 


Module 

T 

| Symbolic Card ID 1 - 

j 

Phase Name 

2315 Disk Initialization 

| BMG 

i 

(BAA) 

1 

1 

IN15 

2311 Disk Initialization 

1 

| BMF 

i 

(BAB) 

1 

1 

1 

IN11 

Save/Restore 

1 

| BAC 

i 


1 

1 

1 

BACDPRS 

Save/Restore 

1 

j BIB 

1 

(BAC) 

1 

1 

1 

BACDPRS 

Print/Punch 

1 

| BAD 

i 


1 

1 

1 

BADPRPU 

Absolute Loader 

1 

| BBA 

i 


1 

1 

1 

BBLDR1 

Absolute Loader 

1 

j BBA 

l 


1 

1 

t 

BBLDR2 

System Construction 

1 

| BCA 

1 


1 

1 

1 

BCASC15 

IPL Phase I 

1 

| BDA 

i 


1 

1 

1 

BDAIP15 

System Mod Level Directory 

1 

j BEA 

1 


1 

1 

BESYSLEV 

System Communication Region 

1 

j BFA 

i 


1 

1 

| 

BFSUPVSR 

SVC Handler 

1 

| BFB 

i 


1 

1 

1 

BFSUPVSR 

Channel Scheduler 

1 

j BFC 

1 


1 

1 

1 

BFSUPVSR 

Device Routine Utilities 

1 

| BFD 

i 


1 

I 

1 

BFSURVSR 

Disk Initiator 

1 

j BFE 

i 


1 

1 

1 

BFSUPVSR 

SDSD ERP 

1 

| BFF 


1 

1 

BFSUPVSR 


. X 


■L 
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//MODLEV JOB 

//SYS002 ACCESS SDSABS,SAME=SYSAB1 
// EXEC UTILS 

PRTMEM INCL=BESYSLEV,SIZIN=(720,60) 

/* 


System Mod Level Directory 


The system mod level directory is a 
non-executable phase (BESYSLEV) that con¬ 
tains the version and modification level of 
each component in the user's system. The 
following statements can be used to obtain 
a listing of the contents of the system mod 
level directory: 









Table 9. System Components (continued) 


Module 

T“ 

i 

-1- 

Symbolic Card ID 3 - 

T ~ 

| Phase Name 

| _ _ 

Tape Initiator 

1 

1 

j 

BFG 

| BFSUPVSR 

i 

Card Initiator 

1 

1 

BFH 

1 

| BFSUPVSR 

I 

Printer Initiator 

i 

1 

1 

BFI 

1 

| BFSUPVSR 

i 

Console Typewriter 

1 

1 

1 

BFJ 

1 

j BFSUPVSR 

| 

I/O Routines 

1 

1 

1 

BFK 

| BFSUPVSR 

■ 

IPL Phase II Add/Subtract 

i 

1 

1 

BFL 

1 

| BFSUPVSR 

i 

Disk ERP Phase 1 

I 

1 

i 

BGA 

1 

| BGD1 

i 

Disk ERP Phase 2 

1 

1 

i 

BGB 

| BGD 2 

Tape ERP Phase 1 

I 

1 

i 

BGC 

1 

| BGT1 

1 

Tape ERP Phase 2 

1 

1 

1 

BGD 

1 

| BGT2 

i 

Card ERP 

1 

1 

1 

BGE 

1 

| BGCD 

Printer ERP 

1 

1 

1 

BGF 

| BPR 

1 

Error Message Writer 

1 

1 

1 

BGG 

1 

| BGMG 

1 

OPEN Phase 1 

1 

1 

I 

BHA 

1 

| BHOPEN1 

1 

OPEN Phase 2 

i 

1 

BHB 

1 

| BHOPEN2 

i 

OPEN Phase 3 

1 

1 

1 

BHC 

1 

| BHOPEN3 

1 

OPEN Phase 4 

1 

1 

i 

BHD 

1 

| BHOPEN4 

l 

CLOSE Phase 1 

1 

1 

l 

BHE 

1 

| BHCLOSE1 

i 

CLOSE Phase 2 

1 

i 

l 

BHF 

1 

| BHCLOSE2 

i 

Cancel Phase 1 

1 

1 

1 

BHH 

1 

| BHCNCEL1 

i 

Cancel Phase 2 

1 

1 

1 

BHI 

1 

| BHCNCEL2 

i 

Dump Phase 1 

1 

1 

BHJ 

1 

| BHDUMP1 

1 

Dump Phase 2 

1 

1 

l 

BHK 

1 

| BHDUMP2 

1 

Job Control Basic Phase 

1 

1 

1 

BIA 

1 

| BIAJBBAS 

1 

Job Control Phase 1 

1 

1 

i 

BIB 

1 

| BIBJBPH1 

i 

Job Control Phase 2 

1 

l 

1 

BIC 

1 

| BICJBPH2 

i 

Job Control Phase 3 

1 

1 

BID 

1 

| BIDJBPH3 

1 

Job Control Phase 4 

1 

1 

1 

BIE 

1 

| BIEJBPH4 

i 

Job Control Phase 5 

1 

1 

BIF 

1 

| BIFJBPH5 


X- 


X 
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Table 9, System Components (continued) 


Module 

Linkage Editor 

1 

-1- 

1 

| 

Symbolic Card ID 1 

BKA 

T 1 

| Phase Name | 

-t-j 

| BKLNKEDT 

i 

Linkage Editor 

1 

1 

1 

BKA 

1 

| BKLNKED1 

1 

Linkage Editor 

1 

1 

1 

BKA 

1 

| BKLNKED2 

1 

Assembler Phase 1 

1 

1 

1 

BLA 

1 

j BLAST 

i 

Assembler Phase 2 

1 

1 

1 

BLB 

1 

| BLAZE 

Utilities Root Phase 

1 

1 

1 

BMA 

i 

| BMUTILS 

| 

Utilities Data Set Copy 

1 

1 

1 

BMB 

1 

| BMUTCOPY 

Utilities Data Set Copy 

1 

1 

1 

BMB 

1 

| BMUTPCHA 

Utilities Squeeze/Map 

1 

1 

I 

BMC 

1 

| BMUTSQMP 

i 

Utilities Initialization Basic 

1 

1 

1 

BMD 

1 

| BMUTINIT 

■ 

Utilities Tape Initialization 

1 

1 

1 

BME 

1 

| BMUTINTP 

i 

Utilities 2311 Initialization 

1 

1 

1 

EMF 

1 

| BMUTIN11 

i 

Utilities 2315 Initialization 

1 

1 

1 

BMG 

i 

j BMUTIN15 

I 

FORTRAN Compiler 

1 

1 

| 


1 

1 

FORTRAN Phase 1 

1 

1 

1 

BNA 

1 

| BNAFORT 

i 

FORTRAN Phase 1 

1 

1 

1 

BNB 

1 

| BNAFORT 

i 

FORTRAN Phase 1 

1 

1 

1 

BNC 

1 

j BNAFORT 

i 

FORTRAN Phase 1 

I 

1 

1 

BND 

1 

| BNAFORT 

i 

FORTRAN Phase 2 

1 

1 

1 

BNE 

I 

| BNAALL 

i 

FORTRAN Phase 2 

1 

1 

I 

BNF 

1 

| BNAALL 

i 

FORTRAN Phase 3 

1 

1 

I 

BNG 

1 

| BNAGEN 

i 

FORTRAN Phase 4 

1 

1 

1 

BNH 

1 

| BNAEXT 

1 

FORTRAN Phase 4 

1 

i 

1 

BNI 

1 

| BNAEXT 

i 

FORTRAN Object Fix Up 

1 

1 

1 

BNX 

1 

| BNAADJST 

1 

FORTRAN Expander 

1 

1 

1 

BNZ 

1 

| BNAXPND 

1 

FORTRAN Library 

1 

1 

1 


1 

| Not Applicable 

Unit Table 

1 

i 

1 

BOA 

1 

i 

i 

IBCOM 

1 

I 

1 

BOB 

1 

i 

i 

FIOCS 

1 

1 

1 

BOC 

1 

i 

i 

DIOCS 

\ 

BOD 

I 

i 

L _J 
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Table 9. System Components (continued) 


| Namelist 

j BOE 

i 

• T — —- 

- “ --1 

| object Fix Option 

1 

j BOF 

j 

1 

1 

i 


| LINK/OVERLAY 

| BOH 

i 

1 

i 

i 


j Square Root 

1 

j BOMA 

j 

1 

» 


j Single Real Exponentiation 

| BOMB 

1 

i 

i 


j Single Real Log 

| BOMC 

1 

i 

i 


| Single Real SIN/COS 

| BOMD 

i 

1 

i 

i 


| Single Real Arctan 

1 

j BOME 

1 

1 

1 

i 


j Single Real Hyperbalic Tangent 

1 

j BOMF 

| 

1 

i 


j Double Square Root 

1 BOMG 

i 

1 

1 

1 


| Double Exponentiation 

1 

j BOMH 

1 

1 

i 

1 


j Double Log 

1 

j BOMI 

i 

1 

i 

i 


| Double SIN/COS 

1 

j BOMJ 

i 

i 

i 


j Double Arctan 

1 

| BOMK 

i 

i 

i 

i 


j Double Hyperbalic Tangent 

1 

| BOML 

1 

1 

1 

i 


j Complex Mult,/Div. 

1 

| BOMM 

i 

I 

1 

i 


| Complex Absolute Value 

1 

j BOMN 

j 

I 

1 

1 


j Complex Square Root 

1 

| BOMP 

1 

I 

1 

1 


j Complex Exp. 

1 

j BOMQ 

i 

1 

1 

1 


j Complex Log 

1 

j BOMR 

| 

1 

1 

1 


j Complex SIN/COS 

1 

j BOMS 

1 

1 

1 

i 


j Complex Double Mult./Div. 

1 

j BOMT 

i 

1 

i 


| Complex Double Absolute Value 

1 

| BOMU 

1 

1 

i 


j Complex Double Square Root 

1 

| BOMV 

1 

1 

1 

i 


j Complex Double Exponentiation 

1 

j BOMW 

1 

1 

1 

1 


j Complex Double Log 

1 

j BOMX 

1 

1 

1 

1 


j Complex Double SIN/COS 

1 

j BOMY 

1 

1 

1 

1 


| Single Real Hyperbolic SIN/COS 

1 

| BOMZ 

i 

1 

1 

1 


| Single Real Arc SIN/COS 

1 

j BONA 

1 

1 

I 

i 


| Single Real TAN/COT 

1 

j BONB 

i 

1 

i 


| Double Hyperbolic SIN/COS 

i 

j Double Arc SIN/COS 

1 

j BONC 

I 

1 

1 

i 


! 

j BOND 

1 

1 

X _ 

__ _1 


(T'" 

'"- 4 ^ 
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Table 9, System Components (continued) 


Module 

T 

| Symbolic Card 

4 _ 

ID 1 

"T 

| Phase Name 

4- . . . .... 

Double TAN/COT 

T 

| BONE 


1 .. - . 

i 

1 

Single Error Function 

1 

j BONF 

i 


1 

1 

1 

Single GAMMA/LOG-GAMMA 

1 

| BONG 


i 

i 

i 

Double Error Function 

1 

| BONH 

i 


i 

1 

i 

Double GAMMA/LOG-GAMMA 

1 

j BONI 

l 


1 

1 

j 

Exp. Integer to Integer 

1 

j BONJ 


1 

1 

1 

Exp. Real to Integer 

1 

j BONK 

1 


1 

1 

i 

Exp. Double to Integer 

1 

j BONL 


1 

1 

1 

Exp. Real to Real 

j BONM 

1 


1 

1 

i 

Exp. Double to Double 

1 

j BONN 

i 


i 

i 

i 

Exp. Complex to Integer 

1 

j BONP 

i 


1 

1 

i 

Exp. Double Complex to Integer 

1 

| BONQ 

1 


1 

1 

1 

Integer MAX Function 

1 

| BONR 

1 


1 

1 

1 

Real MAX Function 

1 

j BONS 

I 


1 

1 

i 

Double MAX Function 

1 

| BONT 

i 


1 

1 

1 

EXIT 

1 

j BONU 

i 


1 

1 

i 

Sense Light Simulation 

1 

| BONV 

i 


1 

i 

1 

Overflow 

1 

| BONW 

1 


1 

1 

i 

Divide Check 

1 

| BONX 

i 


i 

i 

DUMP/PDUMP 

1 

j BONY 

_L 


1 

i 

i _ ... . .. . 

^Object decks are identified using the same symbols as 
decks, except where noted otherwise in parentheses. 

for the 

corresponding symbolic 
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APPENDIX E: SAMPLE PROGRAM 


This appendix contains a description of 
the sample program provided by IBM to test 
the functioning of the various components 
of the programming system after system 
construction. Included are a description 
of the sample program, operating instruc¬ 
tions, and a description of the program 
execution results. More detailed operating 

procedures can be found in I BM _System /3 60 

M odel _44 Progra m mi ng_Sy stem: _Ope rator 1 s 

Guide , Form C28-6815. 


DESCRIPTION 


The sample program, which computes the 
coefficients of Chebyshev polynomials, con¬ 
sists of a FORTRAN main program and two 
subprograms (one SUBROUTINE subprogram and 
one FUNCTION subprogram). The sample pro¬ 
gram is designed to operate with SYSRDR 
assigned to a card reader and SYSLST 
assigned to a printer. Statements within 
the sample program card deck (BAZSAMPL) 
ensure that SYSIPT is assigned to the same 
device as SYSRDR and that SYSOPT is 
assigned to the same device as SYSLST. 

The BAZSAMPL card deck consists of: 

1. Job control statements that assign 
SYSIPT and SYSOPT to the same devices 
as SYSRDR and SYSLST, respectively. 

2. Job control statements for three 
FORTRAN compilations. 

3. Three sets of FORTRAN source state¬ 
ments (one for the main program and 
one for each subprogram). 

4. Job control statements for a linkage 
edit and for the execution of the 
sample program. 

5. Data deck for sample program execu¬ 
tion. 

The program processes two data cards as 
its input. Figure 14 shows a complete list 
of the expected output from the execution 


of the program. This list may be used for 
checking output. 


OPERATING INSTRUCTIONS 


1. Mount the system residence disk. 

2. Perform the initial programming load¬ 
ing procedure for the system. 

3. Place the BAZSAMPL card deck in the 
card reader, ready the reader, and 
press the End of File key. 

4. Respond to messages written by the 
system on SYSLOG (the console 
printer-keyboard) as required. 


OUTPUT 


1. The job control processor will read, 
process, and print all job control 
statements. 

2. For each set of source statements, the 
FORTRAN IV compiler will list the 
following: 

a. Heading including date and level. 

b. The set of source statements. 

c. Storage map including size of each 
COMMON block and size of program. 

3. The linkage editor will prepare and 
list a storage map including the rela¬ 
tive address of each external ref¬ 
erence. 

4. The executed sample program will list 
the results of execution, which should 
correspond to the list shown in Figure 
14. 



**SAMPLE PROGRAM EXECUTION HAS BEGUN. 

I 

COEFFICIENTS OF CHEBYSHEV POLYNOMIALS C N,I,A,B 

N 

T N,PHI»A*B SUMMATION C N,I,A,B *COS I*PHI 
I 0 

C 4, 0, 1.2700, 0.2700 4.63396 

C 4, 1, 1.2700, 0.2700 8.58701 

C 4, 2, 1.2700, 0.2700 6.77608 

C 4, 3, 1.2700, 0.2700 4.42450 

C 4, 4, 1.2700, 0.2700 2.60144 

THE RESULTS AS SHOWN ABOVE ARE CORRECT FOR THE PURPOSE OF THIS DEMONSTRATION. 

COEFFICIENTS OF CHEBYSHEV POLYNOMIALS C N,I,A,B 

N 

T N,PHI,A,B SUMMATION C N,I,A,B *COS I*PHI 
I 0 

C 6, 0, 1.2700, 0.2700 28.97987 

I C 6, 1, 1.2700, 0.2700 54.65051 

C 6, 2, 1.2700, 0.2700 45.65968 

C 6, 3, 1.2700, 0.2700 33.42590 

C 6, 4, 1.2700, 0.2700 20.94514 

C 6, 5, 1.2700, 0.2700 10.70439 

C 6, 6, 1.2700, 0.2700 4.19585 

THE RESULTS AS SHOWN ABOVE ARE CORRECT FOR THE PURPOSE OF THIS DEMONSTRATION. 

♦SAMPLE PROGRAM EXECUTION HAS COMPLETED. 

Figure 14. Output of Sample Program 


( 

Appendix E: Sample Program 59 



INDEX 


&ACCNT 16,26 
6 DUMP 16 
&FIX 20 
SFLPT 16 
6HGHCT 16 
6LABEL 16 
SPRNTMES 20 
$REMARK 20 
6STAPE 16 
6TCON 16 
STDEN 16 
6TIMER 16 
6TPAR 16 
6TTRN 16 
&T9ND 16 
6UNITS 20 
SWCHK 16 

absolute form 5 
absolute loader 5 
accounting routine 26 

accounting information 31 
adding it to system 27 
addressing within 26 
data generated by 31 
entry point 26 
exit from 27 
input to 26 
output from 26 
phase library 26 
register usage 26 
size of 26 
ADD command 28 
adding 

accounting routine 27 
new I/O device 19 
unit control block 17,37 
additional 
decks 14 

unit control block 28 
address of 

channel command list 34 
device dependent routine 42 
device routine 34 

entry point (accounting routine) 26 
first channel command 42 
addressing with accounting routine 26 
adjustment routine, boundary 20 
ALLOC card 
SDSABS 8 
SDSCAT 10 
SDSIPL 7 
SDSPSD 12 
SDSREL, 10 
SDSUAS 9 
SDS000 11 
SDS001 11 
allocation, space 

before first IPL 7 
considerations 6 
first data set 7 
planning 7 


SDSABS 

7 

SDSCAT 

9 

SDSIPL 

7 

SDSPSD 

11 

SDSREL 

10 

SDSUAS 

9 

SDS000 

11 

SDS001 

11 

summary 

12 


area 

channel command word 19 
extended save 26 
fixed 9 
permanent 9 
register save 26 
temporary 9 
assembler instructions 
changes 38 
FORTRAN compiler 20 
supervisor 15 
assembler program 
reassembly of 19 
SETA instructions 20 
assembly instructions, conditional 
FORTRAN library 20 
supervisor 15 
assignment 

change system unit 9 
permanent 9 
symbolic unit 9 
temporary 9 

BACCOUNT 27 
BDA00000 13 

BEA00000 13 

block count, current 38 
block-length (SDSCAT) 10 
blocks, calculating number of 
SDSABS 7 
SDSREL 10 
BNAADJST 20 
BOAUDPT 20 

boundary adjustment routine 20 

calculating number of blocks 
SDSABS 7 
SDSREL 10 

card file control block 48 

catalog, system 6 

CCW 

area 19 

list pointer 34 
table 52,19 
changes 

assembler instructions 38 
new devices 34 
system unit assignment 9 
channel command 

address of first 42 
address of list 34 
word area 19 
words (EXCP) 33 




/€ 


60 



channel program, execute 33 

channel queue 18 

code 

error recovery 39 
return (EXCP) 36 
return (RCB) 39 
comments in listing 20 
comments modules, component 22 
communication region, user 26 
communications area 
interprogram 30 
intraprogram 30 
comparison byte 32 
compiler data set 7 
compiler, FORTRAN 20 
component comments modules 22 
component, modified 22 
components, system 53,5 
size of 11 

conditional assembly instructions 
FORTRAN library 20 
supervisor 15 
conditions, default 
FORTRAN 20 
supervisor 15 

construction procedure, system 12 
construction program, system 13 
control block 

device routine 38 
file 47,18 
request 34,42 
system 17 
unit 45,17 
counters 39 
CTYP 19 

data generated by accounting routine 31 
data set reference number 21 
date 13 
datlen 


SDSABS 

8 

SDSREL 

10 

SDSUAL 

9 

SDS000 

11 

SDS001 

11 

DECK 19 


decks, additional 


default conditions 

assembler program 19 
FORTRAN library 20 
supervisor 15 
deleting 

unit control block 18 
unneeded features 15 
devadr 

ADD command 28 
IPL record 7 
SUB command 28 

system construction program 13 
device address 7 
device-dependent routines 33 
address of 42 
interruption 33 
error recovery 33 
device end 36 

device, new input/output 19 
device routine 34 
address 34 


control block relationships 38 
design 39 

incorporating into system 37 
information available to 42 
number of 38 
device table 

initialization 50,19 
job control 51,19 
device types 29 

directory entries, calculating number of 
SDSABS 7 
SDSREL 10 

directory, system mod level 53 
dirlen 

SDSABS 8 
SDSCAT 10 
SDSREL 10 

disk file control block 47 
disk initialization program 12 
distribution tape 5 
DVADR 12 

EDATE 13 
editing, system 

see: system editing 
ending location of supervisor 23 
ENDTABLE 21 

entry point of accounting routine 26 
EQU instructions 
NCCW 17 
NCHQ 17 
NDEV 17 
NFCB 17 
NSUT 17 
NUCB 17 
NXCA 17 

error condition 36 
error counts 38 
error messages (FORTRAN) 20 
error recovery 
code 39 
operations 37 

program in phase library 37 
routines (EXCP) 33 
example of 

editing 23 

print/punch program 6 
EXCP level programming 33 
execute channel program SVC 33 
exit from accounting routine 27 
expander program (FORTRAN) 23 
extended save area 26 
EXTRACT supervisor call 32,26 

FCB 18 

pointer 18 
table 18 
FCBCT 38 

fifteenth unit 14 
file control block 18 
card 48 
disk 47 
fields 48 
pointer 18 

relationship to device routine 38 
table 18 

first channel command, address of 42 
first data set (space allocation) 7 
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first IPL 14 

space allocation before 7 
FIX operand 9 
FIX option 14 
fixed area 9 
flag, postrequest 42,37 
FMT 8 

form of distribution 5 

FORTOPT 20 

FORTRAN 

assembler instructions 20 

conditional assembly instructions 20 

default conditions 20 

error messages 20 

expander program 23 

number of units 20 

reassembly of components 20 

SETA instructions 20 

symbolic language program 23 

units 20 

frequently used data sets 7 

halt I/O instruction 37 

INCLUDE statement 27 
incorporating device routine into 
system 37 

increasing number of units 20 
index number 21 
system unit 42 
index, system unit 34 
information 

available to device routine 42 
timing 26 

INITIAL control card 12 
initial operative programming system 5 
initial program loading procedure 14 
ADD command usage 28 
fifteenth unit 14 
first 14 
FIX, option 14 
maximum number of units 14 
operator commands 14 
record 6 

sample input deck 14 
SET command 14 
space allocation 7 
SUB command usage 28 
SYS004 6 SYS005 14 
initialization device table 19 
fields 50 
modifying 38 

initialization program, disk 12 
initializing system residence volume 12 
input deck, sample 14 
input to accounting routine 26 
input/output block 35,33 
device routine 38 
input/output interruptions 36 
INSERT supervisor call 31 
instructions, assembler 38 
FORTRAN 20 
supervisor 15 

instructions, conditional assembly 
FORTRAN library 20 
supervisor 15 

instructions, privileged 34 
interprogram communications area 30 


interruption 

analysis and error recovery 37 
device-dependent 33 
input/output 36 
processing 36 
program-controlled 37 
intraprogram communications area 30 
IOBCT 39 
IOCCW 38 

IOCNTl and IOCNT2 39 

IOECD 39 

IOOPC 39 

IORCD 39 

IPL procedure 14 

job control 

device table 51,19 
processor 26,5 
table 6 

KEEP parameter 27 
LABEL card 


SDSABS 

8 

SDSCAT 

10 

SDSIPL 

7 

SDSPSD 

12 

SDSREL 

10 

SDSUAS 

9 

SDS000 

11 

SDS001 

11 

library 


FORTRAN 

20 

module 

7 


phase 6 
LINK 19 

linkage editor 5 
LIST 19 
listing 

comments in assembler program 20 
component comments modules 23 
logical product (AND) 32 
logical sum (OR) 32 

maximum number of ADD commands 28 
members, replacing module library 23 
message, error (FORTRAN) 20 
message, warning 9 
modified component 22 
modifying 

initialization device table 38 
system communication region 37 
mod level directory, system 53 
module library 7,5 
ALLOC card 10 
LABEL card 10 
number of blocks 10 
number of directory entries 10 
replacement of members 23 
size of system components 11 
user programs 10 
modules 

component comments 22 
system 53,25 

multiple-step operations 39 

NCCW 17,38 
NCHQ 17,18 



I 




r 


< 



NDEV 17,38 

new devices, changes for 34 

NFCB 17,38 

NOTE statement 38 

NSUT 17,38 

NUCB 17,38 

number, data set reference 21 
number, index 21 
NXCA 17 

one disk, editing using 24 
optional tape 6 
order of data sets (SDSIPL) 7 
output from accounting routine 26 

permanent area 9 
permanent assignment 9 
phase library 6,5 

accounting routine 26 
ALLOC card 8 

error recovery program 37 
interruption analysis 37 
LABEL card 8 
number of blocks 7 
number of directory entries 7 
size of system components 8,7 
PHASE statement 27 
POINT supervisor call 9 
pointer 

CCW list 34 
FCB 18 
UCB 18 

postrequest flag 
EXCP 37 

request control block 42 
preparation for 

system construction 6 
system editing 15 
print/punch program 5 
privileged instructions 34 
procedure 

initial program loading 14 
summary 14 

system construction 13 
system editing 22 
processing, interruption 36 
processor, job control 26,5 
product, logical 32 
program 

expander (FORTRAN) 23 
sample 58 
stand-alone 5 
system support 5 

program-controlled interruption 37 
pseudo-directory 11,7 
ALLOC card 12 
LABEL card 12 

queue, channel 18 

reassembly 

assembler program 19 
FORTRAN components 20 
supervisor 15 
reassigning units 21 
record, IPL 6 
recovery, error 
code 39 


operations 37 
routines 33 

reference number, data set 21 
register 

information for device routines 42 
save area 26 
usage 26 

relocatable form 5 
replace a UCB 18 
REPLACE statement 15 

replacement of module library members 23 
request control block 34 

device routine relationships 38 
information available in 42 
requirements, EXCP 33 
residence volume, system 6,12 
return code 
EXCP 36 

request control block 39 

sample input deck 14 
sample program 58 
save area 

extended 26 
register 26 
save/restore program 5 
SDSABS 7,13 
SDSAB2 15 
SDSCAT 9 
SDSIPL 7,13 
SDSPSD 11,7 
SDSREL 10,7 
SDSUAS 9,6 
SDS000 11,7 
SDS001 11,7 
SDS003 22,24 
SET card 13 
SETA instructions 

assembler program 20 
FORTRAN library 20 
supervisor 16,15 
SIO command 36 

size of accounting routine 26 
size of system components 
SDSABS 8,7 
SDSREL 11 
space allocation 6 
before first IPL 7 
first data set 7 
SDSABS 7 
summary 12 

specification of accounting routine 26 

stand-alone disk initialization program 12 

stand-alone programs 5 

start input/output command 36 

status 1 and status 2 21 

SUB command 28 

sum, logical 32 

supervisor 

ending location 23 
reassembly 15 
SETA instructions 16,15 
supervisor calls 

device routine 34 
EXCP 33 
EXTRACT 32 
INSERT 31 
POINT 9 
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UPSAND 32 
UPSOR 32 

user communication region 31 
WAIT 33 
SVC 17 31 

SVC 18 32,26 

SVC 19 32 

SVC 20 32 

SWSPH1 19 
SYMBMAX 19 
SYMBMIN 20 

symbolic unit assignment 9 
in distributed system 14 
SYMBnnn 20 
SYSLOG 13 
system catalog 9,6 
ALLOC card 10 
LABEL card 10 
system components 53,5 
SDSABS 8,7 
SDSREL 11 

system construction procedure 12 

initializing system residence volume 
preparation for 6 
system construction program 13 
additional decks 14 
procedure 13 
summary of procedure 14 
system control blocks 

file control block 17 
request control block 34,43 
unit control block 17 
system control tables 

channel command word 19 
file control block 18 
job control device 19 
system unit 18 
unit control block 17 
system editing 5 
optional tape 6 
preparation 15 
procedure 22 

system mod level directory 53 
system modules 53,25 
system residence volume 6 
additional decks 14 
order of data sets 7 
SDS000 11 
SDS001 11 

system support programs 5 
system unit 

assignment 9 
index 34 
index number 42 
table 20 

system work data set 11,7 
ALLOC card 11 
LABEL card 11 
SYS002 6 SYS003 23 
SYS004 6 SYS005 14 


table 

channel command word 52,19 
file control block 18 
initialization device 50 
job control 9 
job control device 51,19 


system control 17 
system unit 18,20 
unit control block 17 
tape 

distribution 5 
optional 6 

tape file control block 48 
temporary area 9 
temporary assignment 9 
timing information 26 
tracks for user 12 
tracks for VTOC 13 
track 0 12 

two disks, editing using 22 
TYPE 12 

types, device 29 


UCPND 

38 

UCPPT 

38 

UCPRE 

38 

UCPWE 

38 

UCRND 

38 

UCRRE 

38 

UCRWE 

38 

unit assignment 


change system 9 
permanent 9 
symbolic unit 9 
temporary 9 

unit control block 45,17 
ADD command 28 
add for device routine 37 
adding 17 
delete 18 

device routine relationship 38 
fields 45 

unit control block table 17 
unit index number, system 42 
unit index, system 34 
unit table, system 18 
units 

fifteenth 14 
increasing number of 20 
reassigning 21 
symbolic 14 
UNITAB routine 21 
UPDASMB1 19 
UPDASMB2 19 
UPDASMB3 19 
UPDATE1 19 
UPDATE2 19 

user communication region 30,26 
accounting information 31 
data generated 31 
extended save area 26 
interprogram area 30 
intraprogram area 30 
supervisor call 31 
switch byte 32,30 
user program switch byte 32,30 
user programs 10 
user, tracks for 12 
utilities processor 5 
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VOLID 12 
volidx 7 
VTOC 12 

space 12 
tracks for 13 


WAIT supervisor call 33 

warning message 9 

writing an accounting routine 


XREF 19 


26 
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